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Preface 


This  dissertation  presents  the  development  of  a  method  for 
reliability  analysis  based  on  exponential  Failure  distributions. 
It  has  been  said,  if  you  can  excuse  the  humor,  that  ”we  can  learn 
from  our  mistakes.”  The  current  emphasis  on  reliability  and 
maintainability  is  a  recognition  that  me  must  prepare  to  learn 
from  the  failures  before  we  start  to  design.  Reliability  is  a 
study  of  the  past  that  determines  the  future.  I  truly  hope  that 
this  work  will  make  that  task  easier. 

I  oujb  a  great  debt  to  my  advisors,  Dr.  Panna  B.  Nagarsenker 
and  Dr.  B.  N.  Nagarsenker,  for  all  their  efforts  on  my  behalf. 
They  knew  where  I  was  going  long  before  I  even  started  on  the 
right  path.  Their  firm  guidance  was  much  appreciated. 

I  must,  also,  gratefully  acknowledge  the  contribution  made 
by  Lt .  Col.  UJalt  Seward.  His  suggestions  helped  to  make  great 
improvements  in  the  Final  draft. 

Mo3t  of  all,  this  work  is  for  Suzan.  She  believed  in  me  so 
strongly,  she  carried  me  past  all  the  rough  places.  My  love  is 
hers,  always. 


Kenneth  N.  Cole 
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Abstract 

One  of  the  most  frequently  used  methods  for  studying 
reliability  is  the  comparison  of  failure  data.  The  analysis  of 
failure  data  can  be  made  in  a  wide  variety  of  ways,  but  the 
formulas  used  are  usually  restricted  to  special  cases  of  the 
number  of  samples,  the  number  of  failures,  and  the  expected 
underlying  distribution  of  failures. 

This  investigation  defines  a  generalized  likelihood  ratio 
test  criteria  for  exponential  failure  distributions  that  is 
applicable  to  any  number  of  samples  with  varying  sample  sizes. 
The  formulas  have  been  implemented  in  C-language  programs  as 
practical  algorithms  for  reliability  analysis. 

In  addition,  a  softu/are  system  has  been  developed  that 
allows  simple  construction  of  programs  that  will  generate  tables 
of  test  criteria  percentage  points  or  automatically  compute  the 
test  value  for  multiple  data  files  and  report  the  result  of  the 
test.  The  system  includes  a  screen  oriented  editor  working  with 
a  line  compiler  for  generating  the  test  programs.  The  software 
is  designed  to  operate  an  the  UNIX  Cb  trademark  of  Bell  Labs} 
operating  system. 
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Introduction 


The  management  and  maintenance  of  complex  systems  is  an  area 
of  great  importance  to  the  Air  Force,  as  well  as  to  private 
industry.  The  achievement  of  reliable  and  maintainable  equipment 
does  not  happen  by  accident.  In  the  Air  Force,  it  is  mandated 
that  these  characteristics  must  be  considered  throughout  the 
entire  equipment  life  cycle,  including  the  planning,  designing, 
developing,  producing  and  supporting  efforts  CRef.  MIL-STD-785A ) . 
A  key  concept  in  this  task  is  the  analysis  of  statistical  data  to 
determine  the  reliability  and  maintainability  of  those  systems. 

The  formulas  used  to  determine  these  characteristics  can  be 
complex  and,  often,  change  significantly  for  each  SBt  of  data  to 
be  examined  CRef.  MIL.-STD-785A ,  niL-STD-781C) .  New  developments 
in  numerical  analysis  are  providing  mathematical  methods  that 
allow  computation  of  the  necessary  statistics  across  a  useful 
range  of  data  distributions. 

Problem  Statement 

The  goal  of  this  research  effort  was  to  derive  exact  and 
asymtotic  censored  distributions  in  a  computable  form  and  to 
explore  the  development  of  a  computer  environment  to  apply 
statistical  analysis  to  reliability  problems. 

Background 

The  general  concepts  of  reliability  and  maintainability  are 
well  established.  Reliability  is  used  to  describe  how  ’’failure 


free”  a  system  is  likely  to  be  over  a  given  time  interval.  In 
other  words,  reliability  is  the  probability  that  a  system  will 
not  Fail  over  a  specific  number  of  operations  or  over  a  specified 
period  of  time.  Maintainability  is  the  likelihood  that  the  system 
can  be  kept  in  a  defined  condition  using  prescribed  maintenance 
methods.  When  we  have  designed  and  built  a  reliable  system,  we 
would  like  to  keep  it  that  way  CRef.  AFR  BO-5,  Epstein  1953:437). 
Quantative  evaluation  of  these  characteristics  has  come  with  the 
advent  of  more  complex  systems.  The  result  has  been  the 
requirement  that  minimally  acceptable  standards  be  established 
and  met  by  new  systems  in  all  phases  of  their  life  cycles  CRef. 
AFR  BO-5,  MIL-STD-7B5A) .  Engineers  and  managers  must  be  familiar 
with  the  tools  necessary  to  evaluate  these  characteristics. 

These  tools  may  be  computer  programs  that  can  evaluate  sets 
of  data,  mathematical  formulas  for  the  statistics  that  apply,  or 
simply,  rule-of-thumb  Judgements  for  making  the  decisions  that 
are  necessary.  Each  of  these  tools  has  advantages  as  well  as 
problems . 

Typically,  rule-of-thumb  solutions  require  expertise  on  the 
part  of  the  user  for  good  results.  While  this  type  of  evaluation 
can  be  performed  quickly  and  should  not  be  ignored  when  applied 
by  someone  experienced  in  the  Field,  there  is  a  strong  dependence 
on  the  user  to  understand  the  applicability  of  the  rule  and  the 
implications  of  the  result.  This  expertise  is  not  always 
available  to  the  system  manager. 

Correct  application  of  Formulas  requires  less  expertise  in 
the  field  of  application  but,  in  many  cases,  more  in 
mathematics.  Selection  of  the  proper  formula  for  a  particular 


case,  and  its  calculation  and  interpretation,  may  require  a 
statistician.  The  statistic  that  is  used  often  depends,  first, 
upon  the  type  of  decision  that  is  needed  and,  second,  upon  the 
amount  or  type  of  data  available  CRef.  AFM  BO-5,  Hogg  and  Craig 
1978,  Lawless  19B2: 29-31 ) .  For  example,  graphical  examination  or 
’’goodness  of  fit”  tests  can  be  used  to  determine  if  the  data 
could  be  from  an  assumed  underlying  density.  The  Chi-Square  test 
would  then  be  selected  if  the  sample  size  is  30  or  greater,  and 
the  hypothesized  density  is  discrete.  A  decision  based  on 
calculations,  without  an  assurance  of  correctness,  is  less  than 
desireable . 

Computer  programs  can  provide  the  user  with  answers  quickly 
and  accurately.  There  is,  again,  the  problem  of  applying  the 
program  where  it  is  not  designed  to  be  used  or  writing  a  program 
which  properly  implements  the  mathematical  solution.  It  is 
possible,  however,  to  have  a  program  that  is  properly  designed 
and  documented  to  allow  the  user  to  apply  modifications  or 
parameters  that  would  adjust  the  program  for  the  application 
required . 

Reliability  and  maintainability  characteristics  are 
determined  by  the  liklihood  of  an  event.  For  reliability,  it  is 
the  likelihood  of  a  system  failure.  Maintainability  relates  to 
the  likelihood  that  the  system  is  in  a  certain  condition. 
Usually,  these  characteristics  are  determined  from  a  relative  ly 
small  sample  and  projected  for  the  future  of  a  large  number 
units.  This  projection  can  successfully  be  made  if  the  expected 
frequency  of  the  event  can  be  determined  from  the  data  available. 
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In  other  words,  if  the  distribution  of  occurences  of  an  event  is 
known,  then  the  characteristics  of  that  distribution  can  be 
assumed  for  the  event  and  the  probabilities  of  future  events  can 
be  determined  CRef.  Trivedi  1982:2-3). 

In  many  of  these  situations,  the  problem  becomes  testing 
whether  there  are  significant  differences  among  the  underlying 
distributions  of  a  number  of  samples.  The  result  could  determine 
that  the  known  characteristics  of  one  group  may  be  assumed  for 
another,  or  that  multiple  samples  may  be  considered  as  a  whole. 
There  are  many  examples  of  this  type. 

Example  1:  A  particular  aircraft  part  is  being  built  by  two 
different  manufacturers.  Is  there  a  significant  difference  in 
the  reliability  or  maintainability  of  the  two  parts? 

Example  2:  A  part  is  being  maintained  at  several  different 
equipment  depots  around  the  country.  Is  there  a  significant 
difference  in  the  maintenance  results  at  each  depot? 

Example  3:  The  failure  times  of  several  electronic  computers  are 
recorded.  How  close  do  the  computations  of  the  failure  rate  for 
each  computer  need  to  be  before  we  can  consider  them  to  have  the 
same  reliability? 

Example  4:  A  new  design  is  to  be  tested.  The  results  will  be 
compared  with  data  collected  on  the  old  model.  Is  there  a 
significant  difference  in  reliability  between  the  two  systems'7 

The  frequency  situations  where  we  wish  to  compare  the 
characteristics  leads  to  the  decision  that  a  generalized  method 


for  comparing  the  underlying  distributions  should  be  one  of  the 
first  problems  to  be  studied. 

As  described  in  Chapter  2,  the  exponential  failure 
distribution  is,  perhaps,  the  most  often  used  distribution  for 
lifetime  modeling.  Its  use  can  be  Justified  for  most  complex 
systems  with  long  lifetimes  and  wherever  the  failure  rate  can  be 
demonstrated  to  be  constant  over  a  period  of  time  CRef.  Lawless 
1982).  This  research  examines  the  comparison  of  samples  from 
exponential  failure  distributions. 

A  partial  solution  to  the  comparison  of  exponential 
distributions  was  developed  by  Epstein  in  1953  for  the  restricted 
case  of  only  two  samples  with  the  same  number  of  failures  in  each 
sample.  The  goal  of  this  dissertation  is  to  extend  this  analysis 
to  the  general  case  for  more  than  two  samples  with  unequal 
numbers  of  failures  in  each  sample.  The  mathematical  formulas 
for  these  calculations  are  developed  in  the  next  chapters. 

In  addition,  a  computer  environment  is  developed  which 
demonstrates  the  application  of  these  procedures  to  reliability 
problems.  It  should  be  noted  that  computer  solutions  for  special 
cases  Ce.g.  fixed  number  of  samples.  data  sets  of  equal  sample 
size,  etc.)  have  been  implemented  using  standard  programming 
languages  CRef.  Amell  1984,  Lawton  1984).  The  environment 
developed  in  this  dissertation  is  intended  to  provide  a  higher 
level  of  support  when  applying  a  general  solution  which  can  be 
parameterized  to  the  special  cases  required. 

Approach 


This  chapter  has  presented  an  introduction  to  this  research. 


The  details  of  this  work  are  provided  in  the  following  chapters. 

The  second  chapter  presents  the  mathematical  background  and 
development  of  the  formulas  needed  for  using  the  likelihood  ratio 
criteria  in  the  most  general  case.  The  next  chapter  gives  the 
development  of  the  statistic  for  testing  for  equality  of  the 
means  of  several  exponential  populations.  The  fourth  and  fifth 
chapters  show  the  derivation  of  the  exact  and  asymtotic  forms  of 
the  cumulative  distribution  function  CC.D.F.)  of  the  test 
statistic . 

The  sixth  chapter  describes  the  application  of  these  results 
to  problems  similar  to  the  examples  given  in  the  first  chapter. 
Then.  the  seventh  chapter  discusses  a  computer  programming 
environment  that  would  support  this  application.  The  final 
chapter  contains  the  conclusions  and  recommendations  for  future 


Chapter  1 1 


Background 

To  effectively  analyze  the  reliability  of  Air  Force  systems, 
or  any  systems,  the  measurements  and  concepts  of  reliability  must 
be  precisely  defined.  In  many  cases,  ue  wish  to  study  the 
characteristics  of  a  large  number  of  nearly  identical  systems. 
Where  actual  operational  conditions  and  complex  systems  are 
concerned,  no  two  systems  can  be  exactly  alike.  The  failures  of 
such  systems  cannot  be  expected  to  occur  at  exactly  the  same 
moment.  But,  if  a  large  number  of  nearly  identical  systems  are 
examined,  when  operating  under  similar  conditions,  then  their 
failures  can  be  discussed  in  probabilistic  terms.  The  analysis 
of  system  reliability  must  be,  therefore,  based  on  concepts  from 
probability  theory. 

These  fundamental  concepts  of  probability  and  reliability 
are  presented  in  this  chapter.  Discussion  begins  with  the 
applicability  of  the  exponential  probability  distribution  to  the 
study  of  complex  systems.  Then,  uie  focus  on  the  definition  of 
the  exponential  distribution  and  those  related  distributions  that 
are  necessary  for  our  later  presentations.  The  concepts  of 
’reliability’,  ’failure  rate’,  and  ’mean  time  between  failures’ 
are  defined  and  their  characteristics  are  examined  for  the  case 
where  the  underlying  distribution  of  failures  is  exponential. 
System  lifetime  models  are,  also,  discussed  for  the  exponential 
case .  Finally,  we  define  Type  II  censoring  and  show  how  the 
probability  density  function  is  modified  when  testing  is 
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suspended  after  a  certain  number  of  failures  has  occurred. 

The  concepts  and  definitions  that  are  presented  in  this 
chapter  can  be  found  in  many  text  books  on  probability  or 
reliability  theory  CRef.  Lawless,  1982;  Kapur,  1977;  Trivedi, 
1982).  They  are  presented  here  in  a  concise  form.  In  addition, 
several  theorems,  not  generally  found  in  these  texts,  are 
given  in  detail  to  provide  the  basis  for  the  work  presented  in 
the  following  chapters. 

Exponential  Distribution 

Most  models  for  component  and  system  life  and  reliability 
are  based  on  the  exponential  distribution,  which  plays  much  the 
same  role  in  reliability  theory  that  the  normal  distribution 
plays  in  sampling  theory.  It  has  been  pointed  out  by  Drenick 
CRef.  1960:  680-690)  that  under  some  (reasonably)  general 

conditions,  the  distribution  of  the  time  between  failures  tends 
to  the  exponential  as  the  complexity  and  the  time  of  operation 
increase.  Early  work  by  Sukhatme  CRef.  1937)  and  then  by  Epstein 
and  Sobel  CRef.  1953,  1954,  1955)  and  Epstein  CRef.  1954,  1960) 

provided  several  results  and  popularized  the  exponential 
distribution  for  lifetime  modeling,  particularly  for  industrial 
life  testing.  Many  others  have  contributed  statistical  methods 
for  applying  the  exponential  distribution.  The  bibliographies  of 
Mendenhall  CRef.  1958),  Govindara Julu  CRef.  1964)  and  Johnson  and 
Kotz  CRef.  1970:  Chapter  18)  give  some  idea  of  the  large  number 
of  papers  in  this  area  prior  to  1970  CRef.  Lawless  1982). 

In  addition,  the  exponential  failure  distribution  is  also 
important  because  it  can  be  derived  from  the  constant  hazard 
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function,  or  failure  rate,  as  will  be  discussed  in  a  later 
section.  When  considering  complex  systems  with  long  Cseveral 
years  and  thousands  of  hours  of  operation)  lifetimes,  the 
unstable  periods  of  system  installation  and  wearout  can  be  set 
aside.  The  long  period  of  a  relatively  fixed  inventory 
maintained  by  routine  repair  procedures  can  be  examined  as  a 
population  with  a  stable,  constant  failure  rate  Csee  Figure  2.1). 

This  situation  is  typical  of  many  systems  in  the  Air  Force 
inventory.  Complex  weapon  systems  like  aircraft  and  motorized 
vehicles  are,  ideally,  stable  populations  that  are  expected  to 
have  long  useful  lifetimes.  Supply  system  inventory  items  that 
are  repairable  systems  in  their  own  right  can  also  be  modeled  in 
this  way.  System  managers  need  to  monitor  changes  in  the  failure 
rate  to  properly  evaluate  the  value  of  the  maintenance  programs 
being  used. 

Thus,  study  of  the  exponential  failure  distribution  has  been 
selected  as  the  focus  of  this  research.  Mathematically,  a  random 
variable  X  is  said  to  have  an  exponential  distribution  if  it  has 
a  probability  distribution  function  (p.d.f.)  of 

*  ©  exP  (©")  C2,1? 

for  x  >  0.  We  can  write  ”  X  ~  EXP(©)  ”  to  mean  that  X  is 
distributed  exponentially  with  the  p.d.f.  of  Eq .  C2.1). 

In  our  case,  the  random  variable  is  the  ’’time  to  failure”  of 
an  individual  system.  The  term  ’time’  will  refer  to  the  unit  of 
measure  for  the  system,  although  the  actual  measurement  may  be  in 
distance,  operations.  running  time,  flights,  or  any  other 
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measurable  unit  that  is  significant  to  a  particular  system. 


Generally,  the  lowercase  letter  ’t’  will  be  used  to  represent 


this  ’time’  in  the  formulas  used  in  this  paper. 


Chi-Squared  and  Gamma  Distributions 


Having  identified  the  exponential  distribution  as  the 


assumed  distribution  of  failure  times  for  the  samples  in  this 


study,  there  are  two  other  distributions  that  are  important  in  o 


work;  the  Chi-Squared  and  Gamma  distributions.  They  are  both 


directly  related  to  the  exponential  distribution, 


These 


distributions  will  appear  when  we  look  at  the  total  test  time  for 


type  II  censored  samples,  later  in  this  chapter 


A  random  variable,  X,  is  said  to  have  a  Chi-Squared 


distribution  if  the  p.d.f.  of  X  is 
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for  x  >  0.  We  will  write  ”  X  'X-  )  ”  where  we  mean  to  use 


the  Chi-Squared  distribution  with  the  p.d.f.  of  Eq .  (2.2) 


A  random  variable,  X,  has  a  Gamma  distribution  with 


parameters  a  and  b  if  the  p.d.f.  of  X  has  the  form 


exp  (jr)  x 

^  r  (a) 


(2.3) 


for  x  >  0  and  we  will  write  ”  X  ~  Q(^,W)  ”  to  denote  this. 


USi 


From  an  examination  of  the  defining  p.d.F.’s  of  the 
exponential,  Chi-Squared,  and  Gamma  distributions,  we  can  deduce 
the  following  equivalences: 


X~X2(n)  s  X~  G(%,2.) 
X  ~  G  (a.,2)  2  X  ~  l£(Za.) 
X~£XP( Q)s  X~G0,©) 


and  we  must  also  make  note  of  the  relations  expressed  in  the 
following  theorems. 


Theorem  2.1:  Let  X~Q6\b') 


then  cX~  , 


where  c  >  0 . 


Proof :  Let  y  -  cx.  Then  dy/dx  “  c  and  x  -  y/c. 

The  p.d.f.  of  Y  is: 


f<,-  ■  f«  \\\ 
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So, 


^Texp^J  i  .  exp  (JO 

c  tbr  n&o 
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Therefore ,  C  X  ~  Q(a  ,c\o)  . 


Theorem  2.2:  (Ref.  Barr  and  Zehna  1983:  258)  Let  Xv  .  .  .  be 

independent  random  varaibles  with  Moment  Generating  Functions 
C M.G.F.)  Mx.(t)for  i  -  1 , 2 ,  .  .  .  n  . 

Then  the  M.G.F.  of  a (X t +- +•...+•  cv.n Xn  is 


Met)  = 
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where  the  M.G.F.  of  X-  . 


Theorem  2.3:  Let  X*...Xn  be  independent  random  variables  such 

n  n 


that  X^  ~  (q  (<\ ,  t>)  .  Then  £  X  where  <X  =  2.^-1 

Proof:  By  Theorem  2.2, 


M  (t)  =  “TT  V\x  (O 
1  1  x+v-  vi'  L 
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Therefore , 


ix~Q(a,W) 

ir*  \ 


n 

where  Q.  -  ^v.  • 
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Theorem  2.4:  Let  ...  An  be  identical 

distributed  Ci.i.d.)  .  Then  X-v 

l*-i 

Proof  :  X  ~  Exp(e')  implies  X  •  ~  0,0.0) 

- -  ...  C 

Then,  by  Theorem  2.3,  for  a  sum  of 


and  independently 

GO,©) . 

by  Eq .  C2 . 6)  . 
independent  Gamma 


distributions 
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Therefore  1  Q(^,q) 


Theorem  2.5:  If  then  ~  fec^. 

b 

Proof:  X~  G(*.W)  implies  ~  , 

b  b 

by  Theorem  2.1  and  this  is  equivalent  to  'Y^fco)  by  Eq .  C2.5). 
Therefore,  ~  ~  7C*  (Z(k)  . 


Theorem  2.6:  Let  X,..-Xn  be  i.i.d.  exp(©). 

n 

Then  iLT  ^  .  where  T  =  2.XL  . 

Q 

Proof :  Since  Xl...Xnare  i.i.d.  EXP(0^  ,  T~Gj(niQ)  by  Theorem 

Q-r 

2.H.  Then  by  Theorem  2.5,  must  be  a  Chi-Squared 

distribution  with  2n  degrees  of  freedom.  That  is 


£1  ~  TfiZn)  . 
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Now,  we  have  defined  the  underlying  failure  distribution  for 
the  samples  and  the  related  distributions  that  we  will  need  for 
later  work.  The  following  sections  present  the  fundamental 
concepts  of  system  reliability  with  specific  reference  to  the 
the  exponential  failure  distribution. 
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Mean  Time  Between  Failures 


The  ’mean  time  between  Failures’  (fITBF)  is  the  expected  time 
during  which  the  system  will  perform  satisfactorily.  It  is 
assumed  that  the  system  being  examined  is  being  renewed  through 
maintenance  and  repairs.  This  is  typical  of  complex  military 
hardware  systems  during  its  useful  life.  However,  this  does  not 
include  systems  that  may  be  categorized  as  ’one  shot’  situations 
such  as  ammunition  or  solid  fuel  rocket  engines.  The  discussion 
in  this  research  is  limited  to  maintainable  systems  that  are 
repaired  or  replaced  to  support  a  constant  inventory .  The  MTBF 
is  defined  as 

WT&F  *  £(XV  (2.13) 

0 

where  fCt)  is  the  probability  density  function  defining  the 
distribution  of  failures.  The  HTBF  for  the  exponential  density 
Function  can  be  written  as 

MTBF  =  =  6  te'1^ 

So,  the  MTBF  is  equivalent  to  the  defining  parameter  of  the 
exponential  failure  distribution  function,  theta.  From  Eq .  (2.1). 
The  failure  distribution  function  is,  also,  directly  related  to 
the  reliability  function  defined  in  the  next  section. 

Reliability  Function 

’Reliability’  can  be  defined  as  the  probability  that  the 


system  will  meet  its  requirements  under  given  conditions  for  a 


SDecified  unit  of  cycles.  These  cycles  may  be  measured  in  time, 
completed  operations  or  distance  where  applicable  to  the  system 
being  studied. 

It  is  obvious  that  the  purpose  intended  for  the  system 
actually  determines  the  type  of  reliability  measure  that  is  most 
meaningful .  The  degree  of  function  necessary  for  the  system  to 
perform  its  mission  can  vary  among  systems  and  among  the 
different  tasks  performed  by  a  single  system.  Each  operation  of 
a  system  may  have  a  different  reliability.  Also,  the  reliability 
of  a  system  may  vary  at  different  points  in  its  life,  whether 
that  life  is  measured  in  time,  operations  or  distance. 

In  the  following  discussions,  the  term  ’failure’  is  used  to 
mean  the  system  is  not  able  to  perform  as  required.  It  must  be 
noted  that  this  failure,  in  the  case  of  a  large  or  complex 
system,  refers  only  to  a  particular  operation  under  study.  There 
may,  or  may  not,  be  other  operations  which  are  dependent  upon  the 
success  of  this  one  and  their  respective  reliabilities  will, 
therefore,  be  effected. 

The  reliability  function  is  the  probability  that  the  system 
will  not  fail  before  a  certain  time.  Mathematical ly ,  this  can  be 
written  as 

R(0>  =  P(x>t)  C2 . 15  5 

where  X  is  a  random  variable  denoting  the  time  of  failure.  If  X 
has  a  density  function  f(t),  then 

C£ . 16) 


If  the  time  to  failure  is  described  by  the  exponential  density  of 
Eq .  CE.l)  then  the  reliability  function  can  be  written  as 


«o 

R (Oj  =  ^exp(  %)  dtj  ^  exp(~$£)  C2.175 

for  t  >  0.  So,  we  can  see  that  the  reliability  function  for  a 
system  having  an  exponential  failure  density  is  dependent  only 
upon  the  nTBF  of  that  density.  Thus,  any  comparison  we  can  make 
between  the  sample's  MTBFs  is  equivalent  to  a  comparison  of  the 
corresponding  reliabilities  of  the  systems  represented  by  the 
samples . 

At  the  beginning  of  this  chapter  we  stated  that  the 
exponential  failure  distribution  could  be  assumed  for  a  system 
demonstrating  a  constant  failure  rate.  (lore  precisely  stated, 
the  hazard  function  for  the  system  must  be  constant.  The  terms 
’failure  rate’,  ’hazard  function’  and  their  relation  to  the 
system  ’lifetime  model’  are  discussed  in  the  next  sections. 


Failure  Rate 

The  likelihood  of  failure  occuring  within  a  certain  period 
of  time  can  be  expressed  as  the  difference  of  the 
reliabilities  at  each  time.  Thus,  the  integral  of  the  failure 
density,  over  a  specific  period  of  time,  can  be  expressed  as 
either 
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The  rate  at  which  failures  occur  during  a  time  period  is 
defined  as  the  likelihood  that  a  failure  per  unit  time  occurs  in 
the  interval,  assuming  that  a  failure  has  not  occured  before  the 
beginning  of  the  interval.  This  ’failure  rate’  is 


w 
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This  failure  rate  is  shown  as  a  function  of  time.  As  stated 
before,  the  unit  might  be  time,  operations,  or  distance, 
depending  the  nature  of  the  system  under  study. 


Hazard  Function 

The  'hazard  function’  is  the  instantaneous  failure  rate. 
The  hazard  function  indicates  the  change  in  the  failure  rate  at 
any  moment  in  the  life  of  the  system.  This  is  often  more 
significant  than  the  failure  rate  at  that  moment,  because  it 
indicates  whether  the  system  reliability  is  improving  or 
decreasing.  For  example,  the  stabilization  of  the  instantaneous 
failure  rate  could  indicate  the  end  of  the  system  installation 
phase  or  break-in  period.  Likewise,  an  increase  in  the  hazard 
function  value  could  indicate  improper  maintenance  procedures  or 
the  beginning  of  system  wearout . 

Equations  may  be  derived,  showing  the  relationships  among 


the  three  functions; 


the  failure  distribution  fCt), 


the 


reliability  function  RCtl,  and  the  hazard  function  hCt).  These 
equations  show  that  any  two  of  these  functions  can  be  obtained 
from  the  third. 


h(-tx,  - 

Rc-0  - 


RCO 

V\  Ct\  exp  ^  ^ 
exp 
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(2.22) 


(2.23) 


When  the  failure  density  function  is  exponential,  the  hazard 
function  becomes  h(t)  “  1/flTBF,  where  fITBF  -  ,  from  Eq . 

(2.141 . 

Lifetime  Model 

The  ’lifetime  model’  is  a  statement  of  how  the  hazard 
function  is  expected  to  vary  over  the  life  of  the  population. 
Figure  2.1  shows  a  typical  case  with  three  areas  of  variance. 
From  tp  to  t,  represents  the  failures  due  to  material  or 
manufacturing  defects.  The  second  phase,  from  t,  to  te 
represents  the  random  failures  associated  with  unusual  or  extreme 
conditions.  Finally,  the  remainder  of  the  curve,  beyond  , 

shows  an  increase  in  failures  due  to  wearout  of  the  equipment. 

This  study  is  concerned  with  the  period  of  time  where  the 
failures  can  only  be  attributed  to  unusual  conditions.  Between 
t,  and  ^2  ,  the  hazard  function  is  constant.  If  the  hazard 
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Figure  S.l  Hazard  Function  Over  System  Lifetime 

function  is  given  by 

h(0  =  Vq 

where  ©  is  a  constant,  the  functions  for  failure  density  and 
reliability  can  be  found.  Eq .  CE.EE)  can  be  used  to  find  the 
reliability  function. 

t 

-  exp  f  j =  exp(“/0)  CE.E5? 

0 

and  Eq .  CE.EEj  can  be  used  to  find  the  p.d.f.  for  failures. 

t 

$(0)  =  KW  exp  CE'S6:' 

Thus,  the  assumption  of  a  constant  hazard  function  implies  an 
exponential  density  function  for  system  failures. 

That  completes  our  discussion  of  the  exponential  failure 
distribution  and  how  it  relates  to  the  cases  uie  wish  to  study. 
Ule  now  turn  our  attention  to  the  data  collected  for  the  samples 
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to  be  compared. 

Type  II  Censoring 

Actual  data  of  the  failures  in  a  population  of  systems  often 
comes  with  restrictions  that  make  the  analysis  more  difficult. 
It  is  rare  that  the  failure  time  is  known  for  every  member  of  the 
population,  or,  even,  for  every  member  of  the  sample. 
’Censoring’  occurs  when  the  exact  failure  times  are  known  only 
for  a  portion  of  the  population.  Right  censoring  is  the  case 
when,  for  a  portion  of  the  papulation,  it  is  known  only  that  they 
did  not  fail  before  a  certain  time.  Right  censoring  is  very 
common  in  failure,  or  lifetime,  analysis. 

One  farm  of  right  censoring  is  called  Type  II  censoring.  A 
Type  II  censored  sample  is  one  in  which  only  the  r  smallest 
failure  times  are  recorded  in  a  random  sample  of  n  items.  The 
value  of  r  is  determined  before  the  test  is  begun.  All  n  items 
are  tested  simultaneously,  but  the  test  is  terminated  when  the 
first  r  items  have  failed.  The  probability  density  function  of 
the  samples  with  known  failure  times  can  be  computed  by 

C2 . 27) 

i 

i 

where  fCt)  is  the  p.d.f  for  each  member  of  the  sample  that  failed 
at  time  and  £  is  the  reliability  function  for  the 

remaining  Cn  -  r)  members  of  the  population. 


If  the  members  of  the  sample  have  an  exponential  failure 
distribution,  Eq .  C2.1),  with  the  reliability  function  of  Eq. 


(2.25),  Eq .  (2.27)  becomes 


^exp[->jft  +  ("-r)tr)] 
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which  is  the  Joint  probability  density  function  of  all  the 
members  of  the  sample. 

Now,  we  can  state  a  theorem  about  the  total  testing  time  for 
all  the  members  of  a  type  II  censored  sample. 

Theorem  2.7:  Let  T  be  the  total  time  on  test  defined  as 

r 

T=  *("-r')4r  (2.29) 

i- \ 

where  the  are  distributed  exponentially  with  p.d.f.’s  of 

Eq.  (2.1)  for  i  -  l...r.  Then  T  is  a  random  variable  whose 
distribution  is  (jr,  Q)  . 

Proof :  Let  "t,  .  xr  be  the  first  r  ordered  observations  of  a 

random  sample  of  size  n  from  an  exponential  distribution 
described  by  Eq .  (2.1).  Then  we  can  show  that  the  quantities  W £ 
for  i  ■  1,2. . .r,  defined  by 

V [  -  nt, 

H-  ("-i-ocvo 

for  i  ”  2...r,  are  i.i.d.,  also  with  p.d.f.  (2.1). 
r 

Let  l  =  ^  W:  .  Then  the  Jacobian  is  given  by 
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Therefore,  the  \v^5  are  i.i.d.  £xp(q),  which  implies  that  their 

sum ,  GCr,  . 

In  this  chapter  we  have  described  the  exponential  failure 
distribution  and  discussed  its  importance  in  the  study  of  complex 
systems  or  systems  demonstrating  a  constant  hazard  function.  We 
have  defined  the  reliability  function  and  demonstrated  how  a 
comparison  of  system  reliabilities  may  be  accomplished  by  a 
comparison  of  the  underlying  failure  distribution  functions.  In 
limiting  our  study  to  the  exponential  case,  we  can  directly 
relate  a  comparison  of  the  ffTBF  for  a  system  to  its  reliability. 

UJe  have  also  defined  the  type  II  censored  sample  and  shown, 
by  using  relationships  between  several  related  distributions, 
that  the  total  time  on  test,  for  such  a  sample,  is  a  random 
variable  with  a  Gamma  distribution  defined  by  the  number  of 
failures,  r,  and  the  riTBF  of  those  failures. 
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We  are  now  ready  to  define  the  likelihood  ratio  test  For 
comparing  the  MTBF’s  of  several  type  II  censored  samples  from 
populations  with  exponential  failure  distributions.  This  test 
statistic  is  presented  in  the  next  chapter. 


Chapter  III 


The  Test  Statistic  and  Its  Moments 

As  we  suggested  in  the  first  chapter,  there  are  many  cases 
where  we  must  determine  if  different  samples  could  have  been 
taken  from  the  same  population.  Generally,  this  is  done  by 
comparing  the  values  of  specific  parameters  of  the  population’s 
distribution  Ce.g.  mean,  variance,  or  both).  The  value  of  the 
parameter  is  estimated  from  the  data  for  each  sample  and  then 
compared  to  an  estimate  of  the  same  parameter  for  the  entire 
population.  Of  course,  to  make  these  estimates  comparable,  we 
must  assume  that  all  the  sample  populations  have  the  same 
underlying  distribution.  We  are  assuming  an  exponential  failure 
distribution  for  all  sample  populations. 

In  this  chapter,  we  define  the  test  statistic  for  the  null 
hypothesis  that  the  samples  have  equal  means.  Then  we  derive  the 
moments  of  the  statistic.  In  the  next  chapters,  we  will  develop 
the  density  functions  that  can  be  used  to  compute  significance 
points  of  the  test  statistic. 

Likelihood  Ratio  Test 

One  method  commonly  used  for  testing  composite  hypotheses  is 
the  Likelihood  Patio  Test  <!LRT)  .  As  the  name  suggests,  this  is  a 
ratio  of  the  two  likelihood  functions.  We  can  define  this  more 
precisely  as  fallows. 

First,  we  define  the  likelihood  function  of  the  sample.  Let 
be  the  failure  times  of  a  sample  of  size  n. 


3-1 


J*  /  'J*  V  J 


Then  the 


likelihood  function  that  the  set  of  failures 


has  occurred 


,  t , 


given  the  fITBF  for  the  underlying  distribution,  L.  (tj Q) ,  i« 
defined  by 


L (*■;&)  =  ,TT 


C3. 1) 


ujhere  the  p.d.f.  of  ti  for  i  “  l,S,...,n. 

Now,  let  D  be  a  parametric  space  of  dimension  p.  Suppose 
that  is  the  null  hypothesis  that  a  collection  of  parameters 
Q--(6,a,QP)  are  allowed  to  take  values  in  a  region  within  D. 


U0-  0 e  oa 

when  6 0 .  Under  the  alternative  hypothesis ,  U,  ,  the  parameters 
are  allowed  to  take  values  is  some  other  region  D,  )  such  that 

14,  •'  Q  e  O,  0.3) 

where  O  -  CD,  . 

As  we  allow  the  parameters  to  vary  over  the  region  there 

is  some  point,  or  set  of  points,  where  the  likelihood  function 
takes  its  maximum  value  for  the  particular  sample  X,xna.x  I— C^,’©)  . 
If  the  parameters  are  allowed  to  range  over  the  entire  space  D, 
then 

L(X-Q)  >  xL(X;Q) 


max 

Q«0 
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The  ratio  LaX)  uihere 


LM  = 


s  «°d«  L  (X ;  Q) 

L(x;0) 
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is  called  the  likelihood  ratio  criterion  fo’'  testing  hb  against 
\-l ,  .  Our  test  of  V40  versus  x  will  be  to  reject  when 


L  ex')  <  C 


C  3 . 6  ) 


where  the  constant  C  is  chosen  such  that  PC.Ux^<C\U„3  =  cx 
where  is  the  desired  level  of  significance  CRef.  Blake 
1979:309).  For  example,  if  the  level  of  significance  is  0.05, 
then  there  is  a  five  percent  probability  that  the  tested 
hypothesis  will  be  rejected  when  it  is  actually  true.  In  other 
words,  a  five  percent  chance  of  mistakenly  saying  the  MTBF’s  of 
the  samples  are  not  the  same. 

Our  objective  is  to  obtain  the  cumulative  distribution 
function  of  the  likelihood  ratio,  in  a  computational  form,  so 
that  the  value  of  C  can  be  found  for  any  level  of  significance, 
number  of  samples  or  number  of  failures.  The  first  step  is  to 
define,  precisely,  the  likelihood  ratio  criteria  for  multiple 
samples . 


Derivation  of  the  LRT  for  Testing  p  Exponential  Distributions 


Suppose  that  there  are  p  exponential  distributions  as  shown 
in  Figure  3.1.  Each  has  an  exponential  failure  distribution 
function  as  defined  by  Eq .  C2.1).  Now,  select  a  sample  of  size 

from  each  population.  The  samples  are  not,  necessarily,  of 
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Figure  3.1.  Samples  From  Several  Exponential  Populations 


the  same  size.  Failure  data  is  collected  for  each  sample  as 
described  far  type  II  censored  samples.  Let 


t i:6)  4  £.&)<££.  (3)4  ...  4t;(n) 
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be  the  failure  times  of  the  first  items  in  the  i-th  sample. 
Let  the  total  test  time  for  each  sample  be 


^7  =  Zt (ni-rL)ti00 
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for  i  ■  1 


Then  tl~  G(n£)  by  Theorem  2.7.  Now,  we 


shall  state  a  theorem  defining  the  likelihood  ratio  criterion  for 
testing  the  hypothesis  that  all  the  populations  have  the  same 
NTBF  against  the  general  alternative.  Then,  we  will  find  the 
moments  of  the  test  criteria  to  prepare  for  the  derivation  of  the 


cumulative  distribution  function. 


Theorem  3.1;  The  likelihood  ratio  criterion  for  testing 
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for  p  exponential  distributions,  against  the  general  alternative 
is  given  by 


1  = 


i  r^tiV 

(lTi/e)e 
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where  and  the  I  •  b  are  defined  by  Eq .  C3.0). 

C  -  I 

Proof:  We  know  that  the  joint  p.d.f.  of  -  ^ 

is  given  by 

(- L\r : 


for  the  i-th  sample.  So,  the  combined  likelihood  is 

L  (x ;  ©,  ©£ =  K  fx 
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where 


L-  I 
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Under  the  null  hypothesis  U^,  we  have  ©^=0  for  all  i,  where  0 
is  unknown.  So,  the  likelihood  function  under  is  given  by 
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Ule  then  estimate  Q  by  maximizing  the  likelihood, 
p 

Let  R  =  Then 

l-i 

p 

L (x;  o)  -  K  Cq) 

By  taking  the  natural  log 

In  L  (/;  Q)  -  In  ^  ^  \n  0  ~  |Vb 
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Taking  the  derivative 


MM)  =  0-  R/  -2V 

c)Q  G  CM  Q 


C3.16) 


and  setting  this  equal  to  zero  the  maximum  for  L(X;©^  is  found 
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Under  the  unrestricted  model,  ue  know  that  the  maximum  likelihood 


estimator 


of  © 


e.  •  vr 
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for  the  i-th  sample  CRef.  Trivedi  1382:403). 

So,  if  we  substitute  our  value  for  0  from  Eq.  C3.17)  into  Eq 
(3.13)  we  get 


v  *r'\»W 


max  L(x,q)  = 
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where  K  is  defined  by  Eq .  (3.135.  For  the  unrestricted  case,  uie 

A 

substitute  for  from  Eq .  C3.1B5  into  Eq .  C3.12)  giving 


max  L(X;0,...©.)  -  tfTT 

oco  P  (JJrLT 
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and,  again,  K  is  defined  by  Eq .  (3.135.  So,  the  likelihood  ratio 
from  Eq .  (3.E05  and  Eq .  (3. BED  is  given  by 

>X\ 

(3 .S3) 


rv\<k*  \(v  &\ 
3«D0 


^L(X;S,..©rN) 
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or 


VTT 
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when  and  Q  - 
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Derivation  of  the  h-th  moment  of  the  Statistic 


With  the  test  statistic  defined  by  Theorem  3.1,  we  now  wish 
to  find  its  moments  which  will  be  used  in  the  next  chapter  to 
obtain  the  density  function  and  the  cumulative  distribution  of 
the  test  statistic.  We  begin  by  stating  a  theorem. 


Theorem  3.5:  The  h-th  moment  of  the  statistic  defined  by  Theorem 
3.1  when  V-lg  is  true  is 


Fhh  RVW  -fr  r^Tfe 

u,‘  Pc ^  r(^ 


(3.25) 


Proof :  The  h-th  moment  of  the  statistic  in  Eq .  (3.10)  is 
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fr  -V  pfrPdT7..-dTf 


TT>0 
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(3 .27) 
=  0 


I  r  =  -£V\ 

where  P(0  the  p.d.f.  of  Tl  .  For  justification  of  the 
operation  in  Eq.  (3.27),  see  Stekloff  (Ref.  1914)  and  Wilks  (Ref. 
1967).  Now,  define 


-  E  ffr  T;h<leyo  (o-lT-  SI 


(3.28) 
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or 


(|fo)  =  [■•  ■  f  fr  r>r;  P(tf  exp  (ail-)  AT,...  ATt 

'  !■->  is, 

r>0 
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Recall  from  Eq.  C3.S)  that  —  G,  (ri^©.).  So,  Eq .  C2.3)  can  be 
used  as  the  p.d.f.  of  the  test  times  and  Eq .  C3.29)  takes  the 

form 

$w  W.«, 

TT>0  1  (T^ 


Then 
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Which  simplifies  to 


C3.33) 


Under  the  null  hypothesis  we  have 


Q-»  0 


for  all  i  -  1,2. ..p, 


So,  Eq.  C3.33)  can  be  simplified  to 
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where  S  =  and  R.-  ^  ^  • 

i*  • 

Now,  we  pause  to  consider  the  derivatives  of  (  \- O'© ) 
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Using  Eqs.C3.39)  and  C3.35)  in  Eq .  (3.27)  we  have 
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is  the  h-th  moment  of  the  statistic  given  by  Eq .  C3.10).  This 
proves  the  theorem. 

In  the  following  chapters  we  will  use  the  moments  of  the 
statistic  to  derive  the  probability  density  function  and  then  the 
exact  and  asymtotic  forms  for  the  C.D.F.  of  the  test  statistic. 


I1 


i 

ii 


Chapter  IU 


Exact  Distribution  of  the  Statistic 


In  the  previous  chapter,  we  defined  the  test  statistic  for 
comparing  the  MTBF’s  of  several  populations,  with  exponential 
distributions,  by  a  ratio  of  likelihoods.  In  order  to  apply  this 
statistic  it  is  necessary  to  know  the  probability  distribution 
for  its  values  and  have  a  cumulative  distribution  function  from 
which  we  can  compute  the  expected  value  of  the  statistic  for  a 
given  probability. 

In  this  chapter,  we  obtain  the  cumulative  distribution 
function  of  the  test  statistic  in  a  computational  form.  The 
inverse  nellin  Transform  is  used  to  obtain  the  probability 
distribution  from  the  moment  function  that  was  derived  in  the 
last  chapter.  Then  the  asymtotic  expansion  of  the  Gamma  function 
is  used  to  obtain  a  computable  form  of  the  cumulative 
distribution  function  of  the  statistic. 


Lemmas 

The  fallowing  results  are  needed  for  the  derivations 
presented  later  in  this  chapter. 


Lemma  4.1:  CRef.  Anderson  1958:204?  The  following  expansion  for 
the  natural  log  of  the  Gamma  function  holds: 
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where  GO  is  the  remainder,  such  that  | G^U  C/\  for 

some  constant  C  independent  of  x.  8p(Vi'l  is  the  Bernoulli 


Polynomial  of  degree  r  and  order  unity  defined  by 
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The  first  three  polynomials  are 
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Lemma  4.2:  CRef.  Kalinin  and  Shalaevskii  1971)  Let  the 


asymtotic  series  converge  to  the  function  gCx)  in  the 
neighborhood  of  x  -  0  Cor  be  its  asymtotic  expansion  when 
x  -  0) .  We  then  have 


exp  (^(xV)  =  \  +  ^jX 
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where  the  coefficients  satisfy  the  recurrence  relation 
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Lemma  4.3:  CReF.  Norlund  1916,  Nair  1940)  Let  (V)  -  E  (Xfc>)  be 
the  moment  function  of  a  random  variable  X  with  density  Function 
FCx).  IF  =  with  the  real  part  of  t  tending  to 
infinity,  then  ^ has  the  Following  exact  representation  as  a 
factorial  series: 


<$c^= 
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Proof :  Replacing  h  by  ph/R  in  Eq .  (3.S6)  it  follows  that 
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Then  we  have,  from  Eq .  (4.6), 
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Using  the  inverse  Mellin  Transform,  the  density  function  of  L  is 


given  by 
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Define  prr\-=R-$  ,  where  S  is  a  convergence  factor  chosen  later. 


So,  we  have 
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i,  define  +  so  that  ln=t-rft  ,  and  from  Eq .  (4.9)  we 


have 
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where 


r\pt*s^ 


Using  Lemmas  4.1  and  4.2  we  have 


$0^  -  [(Z^VV^k  *Vi*!i]fV[l  +  i  +  3z  ...■]  ch.is, 


uhere  V 


t?-') 


and  the  < coefficients  are  determined  by 

Qs  =  7  2-kA^V.t 

1  Ks» 

with  1  . 

and  the  Ar  coefficients  are  given  by 
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K< r-V  w: 
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for  r*  ^  \ 


Then  Eq .  1:4.12}  shows  that 
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with  the  real  part  of  t  tending  to  infinity.  Therefore,  by  Lemma 
1.3.  $ Cq  can  ba  expressed  as  a  Factoral  series: 


$ 


r(-t4<xvv+L^ 


where  a  is  a  convergence  factor  chosen  such  that  Rr-<2, 
giving  C\-=^1-v^^  (see  Appendix  A}.  Also, 
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Using  Eq .  C  4 . 1 9  }  in  Eq .  (4. 13},  we  integrate  the  series  term  by 
term  Csince  a  factoral  series  is  uniformly  convergent  in  a  half 
plane  (Ref.  Doetsch  1971}},  giving 
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where 
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Now,  choose  S  such  that  A,»  <t>  in  Eq .  C4.10) 
This  gives  us 

s»  Lci^)->]  /i(p-o 
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Csee  Appendix  A).  The  C.D.F.  can  now  be  obtained  From  Eq .  C4.ll) 


by  integrating. 


Kx\  =  K 
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where  K  is  defined  by  Eq .  C4.15)  and  r„o  is  the  Incomplete 
Beta  function  with  parameters  p  and  q,  defined  by 
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Cirj^L 
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where 


is  the  Beta  function. 


Ule  now  have  a  computable  form  of  the  C.D.F.  for  the 
statistic  L.  This  will  allow  us  to  directly  determine  the 
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probability  that  the  value  of  the  statistic  is  less  than  or  equal 
to  a  given  value  when  the  tested  hypothesis,  U$  ,  is  true.  In 
the  next  chapter,  we  will  derive  an  asymtotic  Form  of  this 
distribution  that  will  be  useful  in  computations  where  the 
numbers  of  samples  and  failures  are  high. 


Chapter  U 


Asymtotic  Expansion  of  the  Exact  Distribution 


In  Chapter  3,  lue  defined  a  test  statistic  for  comparing 
multiple  samples  from  populations  with  exponential  failure 
distributions.  The  distribution  function,  derived  in  Chapter  4, 
allows  us  to  directly  compute  the  probability  that  the  statistic 
is  less  than  or  equal  to  a  given  value  when  the  MTBF’s  of  the 
populations  are,  in  fact,  equal.  In  cases  where  the  number  of 
samples  or  failures  are  large,  it  is  useful  to  have  an  alternate 
method  of  calculating  the  cumulative  probability.  Ideally,  this 
method  would  provide  a  more  efficient  calculation  method  and 
a3ytotically  approach  the  exact  value  of  the  probability  for 
larger  parameter  values. 

In  this  chapter  we  obtain  the  asymtotic  expansion  Df  the 

l  - 

test  statistic,  ‘-“A.  .  This  asymtotic  form  of  the  distribution 
is  valid  for  moderately  large  sample  sizes  Ctotal  number  of 
failures  above  100). 


Lemmas 

As  in  the  derivation  of  the  exact  distribution,  the 
definition  of  a  lemma  will  help  to  simplify  the  derivation  of  the 
asymtotic  expansion.  The  major  step  in  the  derivation  of  the 
asymtotic  form  of  the  C.D.F.  is  the  expansion  of  a  ratio  of  Gamma 
Functions.  Lemmas  4.1  and  4.2  can  combined  to  form  the  following 
lemma . 


m 


Wm  I'lTl 


Lemma  5.1: 


(Ref.  Nagarsenkar  and  Nagarsenker  1984:359) 
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Follows  immediately  from  Lemmas  4.1  and  4.2  that  the  following 
expansion  for  the  ratio  of  two  Gamma  functions  holds: 


r* (rv\S  vaA)  /  _\-t-v+wV,  a  n 

— b ..r\ 
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where  the  coefficients  C.  satisfy  the  following  recurrence 
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relation : 
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Derivation  of  the  flsymtotic  Expansion 

In  proving  the  following  theorem  we  expand  Gamma  functions 
found  in  the  distribution  Eq .  (4.5). 


Theorem  5.1:  The  asymtotic  expansion  of  the  distribution  of  L, 

in  terms  of  m  increasing,  is  given  by 

k 
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as  were  stated  for  the  exact  form  of  the  C.D.F.  In  Theorem  *4.1. 
In  addition, 
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and 


Wtr«  U^i.r-V. 

Tr=  -Ar 

where  Ar  is  defined  in  Eq .  (4.12)  and  is  defined  by  Eq . 

(4.14) . 


Proof :  Using  Lemma  4.1  on  the  definition  of  K  in  Eq .  (4.5)  we 

obtain 


when  d  is  chosen  so  that  This  results  in  the  same  value 
for  S  (Eq.  (5.2))  that  was  necessary  to  make  A,  =  <25  in  the 
previous  chapter, Eq.  (4. IB)  (see  Appendix  A).  Also,  the  "T"r 
coefficients  are  related  to  the  Ar  coefficients  of  Eq .  (4.12)  by 


=  -  f\r  r^Z- 


(5.4) 


We  can  now  use  Lemma  5.1  in  Eq .  (5.3)  to  obtain 
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which  can  easily  be  expressed  in  the  form  given  in  Eq .  (5.3). 

The  following  corollary  to  Theorem  5.1  can  be  usBd  to 
further  simplify  the  calculations  when  only  two  samples  are 
considered  and  the  number  of  failures  is  the  same  in  each  sample. 


Corollary  5.1:  If  p r  2.  and  Vz.  then  the  asymtotic 

expansion  of  the  distribution  becomes 
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and  is  precisely  the  same  as  the  Bxact  distribution  of  L. 


Proof :  First,  when  p »  cL  Theorems  4.1  and  5.1  give  us 
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In  Theorem  5.1  CEq.  C5.2)),  it  can  be  shown  that  the  5r 
coefficients  all  become  zero  for  these  values.  In  Theorem  4.1 

CEq.  (4. 5)),  the  values  of  become  zero  for  i  >  0  and  both 

Eqs .  C4.5)  and  C5.2)  then  become 

C5.ll) 

Thus,  the  corollary  holds  for  two  samples  with  equal  numbers  of 
failures . 

Now.  we  have  a  test  statistic  C Theorem  3.1)  and  two  methods 
of  calculating  the  cumulative  probabilities  for  its  value 
C Theorems  4.1  and  5.1).  Although  these  equations  are  more 
complex  that  I  would  like  to  try  on  a  slide  rule,  it  would  be 
straight  forward  to  apply  these  theorems  to  any  number  of  samples 
containing  failure  data,  compute  thB  value  of  the  statistic,  A.  , 
and  determine  the  probability  that  the  statistic  was  less  than  or 
equal  to  that  value  when  the  samples  came  from  populations  with 
the  same  failure  distributions. 

In  the  next  chapters,  we  will  discuss  the  practical 
application  of  these  results  to  the  types  of  problems  described 
in  Chapter  1  and  the  development  of  supporting  computer  software 
to  provide  solutions  for  the  most  general  cases. 


Application  of  Results 


In  Chapter  1,  several  examples  were  given,  of  problems  which 
could  be  solved  by  analysis  of  failure  data.  In  this  chapter  a 
method  for  solving  these  problems  is  discussed.  An  approach  for 
the  analysis  is  defined  in  the  first  section.  Then,  the 
application  of  the  theorems  from  Chapters  3,  4,  and  5  are 
discussed.  The  data  and  assumptions  are  examined  and,  finally,  a 
sample  problem  is  presented  to  demonstrate  the  application  of  the 
mathematical  results. 

Approach  to  Solution 

All  the  example  problems  from  Chapter  1  may  be  solved  in  the 
same  way.  The  approach  is,  simply,  to  determine  if  samples  taken 
from  each  group  could  have  come  from  the  same  distribution  by 
examining  the  expected  MTBF  of  each  sample. 

In  Chapter  3  it  was  shown  that  it  is  reasonable  to  assume 
the  underlying  distribution  of  failure  times  is  exponential. 
This  exponential  distribution  can  be  defined  by  a  single 
parameter,  the  MTBF  Cmean-time-between-failures) . 

Relationships  were  also  presented  among  the  characteristics 
of  the  exponential  distribution,  showing  the  reliability  and 
hazard  functions  are  determined  by  the  MTBF.  Then,  all  of  the 
example  problems  can  be  reduced  to  a  comparison  of  MTBF’s  for 
samoles  of  failure  times  from  each  situation  under  study.  The 
difference  in  MTBF’s  can  be  translated  to  a  difference  in  failure 


rate,  reliability,  or  maintainability,  by  application  of  the 
appropriate  Formula  from  Chapter  2. 


The  test  criteria  defined  by  Theorem  3.1  is  only  capable  of 
indicating  whether  a  significant  difference  exists  among  the 
samples  tested.  It  cannot  indicate  the  amount  of  difference  or 
the  particular  sample  that  varies  from  the  others.  It  is 
important  to  understand  this  limitation  of  the  analysis. 

Application  of  this  work  to  Air  Force  systems  will  provide  a 


il 

r 
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new  tool  for  managers  to  analyze  failure  data  of  complex  systems. 
Procedures  are  well  documented  for  testing  and  verifying 
reliability  data  for  Air  Force  systems  CRef.  nlL-STD-701C) .  In 
other  words,  a  sample  of  failure  data  may  be  used  to  esitmate  the 
MTBF  for  the  system,  or  verify  the  projected  MTBF  given  by  the 
system  designers.  However,  there  is  no  existing  procedure  to 
directly  compare  several  samples  of  Failure  data.  The  theorems 
presented  in  this  work  can  be  used  to  compare  samples  directly 
and  indicate  the  significance  of  the  difference  in  the  MTBF’s  of 
any  number  of  samples. 


$ 
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Application  of  Theorems 

There  are  three  theorems  that  may  be  applied  in  this 
analysis.  Theorem  3.1  defines  the  test  criteria  and  must  be 
applied  to  determine  the  value  of  LCX)  for  the  samples  being 
considered.  Computation  of  the  criteria  requires  three  pieces  of 
information  for  each  sample;  the  number  of  items  under  test  Cn?, 
the  number  of  items  that  Failed  Cr),  and  the  failure  times  of 
those  items  CtCk],  k  ■  l...rl>.  In  the  most  general  case,  these 
values  will  vary  For  each  sample. 


« 


The  other  two  necessary  theorems  may  be  applied  through 
tables  or  computed  directly.  Theorem  4.1  and  Theorem  5.1  define 
the  cumulative  distribution  function  of  the  test  criteria  in 
exact  and  asymtotic  forms.  respectively.  The  cumulative 
distribution  function  gives  the  probability  that  the  test 
criteria  will  be  less  than  or  equal  to  the  given  value.  These 
theorems  may  be  used  to  generate  tables  for  the  simplest  cases 
Cas  provided  in  Appendicies  B  and  C) ,  where  the  samples  all 
contain  the  same  number  of  failures. 

The  theorems  may  also  be  applied  to  specific  cases  where 
tables  are  not  usually  available.  The  test  criteria  is 
applicable  to  problems  where  several  samples  may  contain 
different  number  of  failures  from  test  populations  of  different 
sizes.  Percentage  point  values  for  such  specific  cases  cannot 
generally  be  found  in  tables. 

In  any  case,  a  level  of  significance  must  be  selected  to 
determine  the  decision  point  for  the  test  criteria.  As  stated  in 
Chapter  3,  the  hypothesis  that  the  samples  came  from  the  same 
distribuiton  will  be  rejected  when  LCX)  <  C,  where  C  is  chosen  so 
the  probability  that  LCX)  <  C,  when  the  hypothesis  is  true,  is 
equal  to  the  level  of  significance.  Thus,  if  the  level  of 
significance  is  small,  the  chance  of  mistakenly  saying  the 
distributions  are  not  equal  is  also  small. 

Assumptions  and  Data 

There  are  both  assumptions  and  data  necessary  for  making 
these  calculations.  It  is  always  important  to  be  certain  that 


the  assumptions  are  valid  and  the  data  is  appropriate  before  the 
results  of  the  analysis  can  be  considered  useful. 

The  only  assumption  made  during  the  development  of  the 
theorems  was  that  the  failure  times  are  distributed 
exponentially.  This  is  a  reasonable  assumption  based  on  works 
referenced  in  Chapter  2. 

Data  used  in  the  calculations  is  of  two  types.  First,  there 
is  the  collected  failure  times  of  the  items  under  study.  The 
other  data  is  the  subjective  data  from  which  a  decision  point  is 
established  for  the  calculations. 

The  theorems  were  developed  for  ’type  II  censored  samples’ 
as  described  at  the  end  of  Chapter  2.  This  means  that  the 
’sample’  data  necessary  includes  only  the  number  of  items  under 
test  Cn),  the  number  of  items  that  failed  before  the  test  was 
stopped  Crj,  and  the  amount  of  time  each  ’failed’  item  had  been 
operating  when  the  failure  occurred  CtCkD  for  k  -  l...r).  This 
data  is  required  for  each  population  to  be  considered  in  the 
analysis.  Figure  3.1  shows  a  picture  of  this  information  for  a 
variable  number  of  populations  Cp) .  Note  that  the  size  of  the 
populations  and  their  respective  samples  are  not  required  to  be 
equal.  It  is  also  not  necessary  for  the  test  durations  to  be  the 
same . 

As  discussed  in  the  previous  section,  the  level  of 
significance  needs  to  be  defined  to  determine  the  value  of  the 
statistic  at  which  the  hypothesis  should  be  rejected.  This  is  a 
subjective  determination  which  may  have  a  direct  effect  on  the 
reported  result.  In  other  words,  if  the  statistic  indicates  that 
the  hypothesis  should  be  rejected  'Cthe  samples  did  not  come  from 


the  same  distribution j  and  there  is  still  a  0.1  probability  that 
the  samples  came  from  the  same  distribution,  should  it  be 
reported  that  they  are  the  same  or  not?  Management  Factors 
should  determine  the  allauable  error. 

Some  assistance  in  making  this  Judgement  can  be  obtained  in 
knowing  the  likelihood  of  the  test  criteria  value  being  less  than 
or  equal  to  the  computed  value  when,  in  Fact,  the  sample 
populations  have  the  same  Failure  distribution.  This  is  obtained 
by  direct  calculation  oF  the  C.D.F.  using  Theorems  4.1  or  5.1 
with  the  sample  and  Failure  count  data  For  the  particular 
situation . 

When  this  technique  is  used  with  the  normal  calculation  and 
comparison  oF  the  test  statistic,  additional  inFormation  about 
the  validity  oF  the  comparison  is  provided.  For  example,  iF  the 
test  criteria  indicates  the  hypothesis  Cthat  the  samples  have  the 
same  MTBF}  should  be  rejected  and  the  C.D.F.  value  is  large  then 
the  test  should  be  considered  less  reliable  than  when  the  C.D.F. 
is  smaller.  Also,  iF  the  te3t  criteria  indicates  that  the 
samples  have  the  same  MTBF  but  the  C.D.F.  is  small,  the  test  may, 
again,  be  misleading.  It  is  important  to  consider  both  values  as 
providing  important  inFormation  For  the  analysis  oF  the  data. 

An  Example  Problem 

To  demonstrate  the  steps  necessary  in  applying  this 
analysis,  a  sample  problem  is  presented  in  the  Following 
paragraphs . 

Suppose  two  manuFactures  are  developing  a  new  navigation 
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Figure  6.1.  Failure  Data  For  A-7D  Navigation  Computers 


computer  for  use  in  the  A-7D  aircraft.  Each  manufacturer  has 
provided  a  number  of  production  units  tu  be  tested  by  the  Air 
Force.  The  number  of  units  under  test  and  the  failure  data  is 
provided  in  Figure  6.1.  The  problem  is  that  each  manufacturer 
claims  their  units  are  more  reliable  that  their  competitors.  It 
must  be  decided  if  there  is  a  significant  difference  in  their 
reliabilities.  Since  there  are  only  two  samples  taken  from 
populations  of  equal  sizes  and  each  test  is  stopped  after  the 
same  number  of  failures  have  occurred,  then,  the  test  ratio  can 
be  simplified  to: 


L(x')  = 


4t,t; 

(t  ^y 


C6. 1) 


where  and  are  the  sums  of  the  test  times  defined  by  Eq 

(3.0)  . 


The  level  of  significance  is  chosen  to  be  0.1  for  this 
example.  Calculation  of  the  statistic  for  the  data  of  Figure  6.1 


using  Eq .  ib.lJ  gives  LaXj  -  0.934432.  Table  B.l  in  the  appendix 
shews  that  the  decision  point  for  these  values  is  0.69S207,  so 
the  hypothesis  must  be  accepted  at  this  level  of  significance. 
In  other  words,  the  statistic  indicates  that  the  failure  data  may 
have  come  from  populations  with  the  same  exponential 
distributions  so,  neither  manufacturer’s  units  are  significantly 
better  than  the  other. 

If,  as  we  mentioned  earlier,  the  cumulative  probability  for 
the  statistic  is  calculated.  The  likelihood  that  the  statistic 
is  less  than  or  equal  to  0.934432  when  the  samples  come  from 
populations  with  the  same  failure  distribution  is  found  to  be 
0.475,  or  47.5?s.  This  large  value  reinforces  our  decision  that 
the  samples  may  have  come  from  populations  with  the  same  failure 
distribution.  In  fact,  we  could  have  compared  the  data  using  a 
level  of  significance  as  high  as  0.475  and  the  statistic,  still, 
would  indicated  that  the  hypothesis  should  be  accepted. 

This  procedure  for  analysis  of  sample  data  could  be 
implemented  in  a  computer  program  that  would  only  require  the 
operator  to  provide  the  data,  in  stored  files,  and  the  level  of 
significance  for  the  analysis.  Such  a  program  would  only  require 
an  implementation  of  the  theorems  presented  and  the  steps 
described  for  this  simple  example.  However,  to  provide  computer 
support  for  the  most  general  problem  requires  that  we  address 
some  additional  problems. 


General  Problem  Considerations 

In  the  most  general  application  of  this  work,  it  would  be 


useful  to  provide  a  computer  system  that  supports  all 
necessary  uses  of  the  theorems.  Not  only  should  should  we 
provide  a  program  which  would  compare  the  hTBF’s  of  any  number  of 
samples,  of  any  size,  but,  we  should  also  provide  a  method  for 
generating  tables  of  percentage  points,  as  given  in  Appendix  B, 
for  the  exact  calculations,  or  Appendix  C,  for  the  asymtotic  form 
of  the  function. 

In  a  program  designed  to  compute  either  table  values  or  a 
comparison  of  sample  data,  there  are  several  things  that  must  be 
established  for  the  program,  and  known  by  the  user,  for  the 
program  to  provide  a  useful  solution.  These  qualifications 
include  the  method  of  caluclatian  (exact  or  asymtotic),  the 
accuracy  of  the  calculation,  and  the  maximum  number  of  samples 
that  may  be  compared  (if  any). 

The  accuracy  of  the  results  will  depend  on  the  number  of 
terms  used  to  compute  the  probability  using  the  Cumulative 
Distribution  Function  of  the  statistic.  Examination  of  the  forms 
for  the  mathematical  solution  of  the  C.D.F.  indicates  that,  in 
both  the  exact  and  asymtotic  functions,  there  is  a  need  to 
establish  a  limit  for  the  number  of  terms  that  will  be  included 
when  computing  the  probability.  It  is  generally  not  practical  to 
compute  an  infinite  number  of  values  in  a  computer  program.  So, 
in  all  the  computer  programs  provided,  the  programmer  or  system 
operator  establish  the  number  of  terms  to  be  used  and,  therefore, 
the  accuracy  of  the  calculations. 

Obviously,  it  would  be  possible  to  provide  a  program  that 
simply  provides  a  solution  to  a  given  problem  at  a  stated 
accuracy.  However,  a  computer  system  that  supports  a  general 


application  of  this  analysis  would  be  more  useful  because  the 
operator  could  tailor  the  system  to  his  current  needs  and  then 


re-adjust  the  parameters  to  satisfy  his  future  needs.  Ideally, 
this  would  not  require  as  much  work  or  expertise  as  the  original 
programming  effort  to  design  and  implement  the  system.  The  next 
chapter  discusses  the  implementation  of  a  software  system  to 
provide  this  type  of  computer  support. 
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Chapter  UII 

Programming  Environments  to  Support  Mathematical  Tools 


The  development  of  a  mathematical  solution  is  generally  not 
an  end  in  itself.  To  be  practical,  the  solution  must  be  made 
into  a  usable  algorithm  for  solving  a  problem.  Obviously,  the 
algorithm  should  be  tested  and  verified  or  proven  to  be  correct. 
Then  the  solution  may  be  used  in  the  study  of  other  problems,  or 
to  provide  answers  to  specific  questions  within  the  solution 
space  of  the  original  problem.  All  of  these  uses  (testing, 
continued  development,  and  generation  of  data)  may  be  provided 
for  if  the  algorithm  is  created  within  an  appropriate  environment 
which  supports  these  operations. 

Providing  a  single  environment  for  all  of  the  algorithm’s 
users  would  increase  the  communication  among  the  participants  in 
the  problem’s  solution.  Let’s  classify  the  users  of  the 
algorithm  into  two  groups.  'Managers’  have  the  questions  which 
must  be  solved  by  'mathematicians’  and  the  answer  must  be  stated 
in  a  form  the  manager  can  comprehend. 

The  manager  is  the  originator  of  the  problem  which  the 
algorithm  attempts  to  solve.  He  defines  the  problem  and 
determines  the  boundaries  of  the  problem  space  and  the  solution 
soace.  The  manager  is  also  the  end-user  of  the  algorithm  which 
solves  the  problem.  Thus,  the  problem  is  originally  stated  by 
the  manager  and  the  solution  must  be  usable  and  understandable  to 
him.  If  the  problem  is  not  solved  in  an  environment  known  to  the 


ianager .  it  must  be  translated  into  that  form  before  it  is 


useful.  This  is  a  step  ujb  wish  to  avoid. 

The  mathematician  is  the  technician  and  must  create  an 
algorithm  for  solving  the  problem.  He  must  understand  the 
manager’s  problem  in  the  form  it  is  presented  or  translate  it  to 
a  domain  where  he  can  operate.  His  working  environment  must 
provide  for  the  application  of  standard  mathematical  techinques 
with  predictable  results.  He  must  be  able  to  create  algorithms 
that  not  only  provide  a  solution  for  the  manager,  but  also  may  be 
used  as  components  of  other  problems,  not  yet  defined. 


With  the  current  trends  towards  standardization  within 
military  computer  systems,  it  is  becomming  more  likely  that  the 
managers  and  mathematicians  described  here  will  have  access  to 
compatable  computer  systems.  A  common  environment  which  supports 
the  needs  of  bath  users  could  increase  productivity  by  increasing 
the  communication,  and  thus  the  understanding,  between  these  two 
groups.  Such  an  environment  should  be  a  living  entity  that 
provides,  for  the  mathematician,  a  place  for  new  tools  to  be 
created,  modified  and  tested,  and  for  the  manager,  a  place  to  use 
those  tools  and  provide  feedback  to  their  designer. 

In  general,  the  support  provided  by  programming  environments 
is  limited  to  text  editors,  languages,  and  file  manipulation 
routines  that  perform  specific  transformations  CRef.  Barstow 
1504:199-200,  Taylor  and  Standish  1905:302).  General  purpose 
languages  (e.g.  Fortran,  Pascal,  C,  etc.)  contain  only  minimal 
support  for  mathematics.  The  basic  functions  of  addition, 
multiplication,  division,  subtraction  and,  sometimes, 
exponentiation  are  available.  More  complex  functions  must  be 
provided  by  libraries  of  subroutines.  Some  of  these  libraries 


are  extensive  Ce.g.  If1SL5  and  contain  routines  that  can  be 
applied  in  many  cases.  However,  the  most  recent  solutions  to 
mathematical  problems  are  often  not  available  in  such  libraries. 
It  may  also  be  found  that  the  language  of  choice  may  not  have 
access  to  the  libraries  that  are  needed.  Computer  support  for 
reliability  and  maintainability  studies  is  hampered  by  all  these 
problems . 

Environments  and  program  libraries  Csuch  as,  S,  ItlSL,  and 
BNDP5  that  provide  statistical  routines  are,  generally,  limited 
to  fundamental  statistical  functions  Ce.g.  t-tests,  analysis  of 
variance  and  covariance,  generation  of  histograms,  etc . 3 .  These 
functions  may  be  combined  to  perform  more  complex  work,  but,  only 
BfIDP  provides  a  survival  analysis  function  CRef.  Dixon  et  al . 
1983:576,  Francis  19815. 

8  system  supporting  statistical  analysis  should  provide  the 
features  of  a  good  operating  system  with  enhancements  to  assist 
in  the  special  needs  of  the  users.  These  enhancements  are  the 
tools  which  will  be  developed  and  used  in  the  environment.  Other 
features  should  include  user-freindliness,  use  of  common  or 
popular  structures  and  organization,  and  the  ability  to  grow  and 
change  to  meet  new  requirements.  These  features  have  made  the 
UNIX  operating  system  one  of  the  most  popular  in  use  today  CRef. 
Kernigan  and  flashey  1981:255 

Environment  Definition 

We  will  now  define  the  goals  for  a  Statistical  Analysis 
Environment  CSAE5 .  This  environment  is  not  intended  to  have  all 


the  desirable  features  of  such  a  system.  It  is  only  provided  to 
demonstrate  how  an  existing  operating  system  may  be  enhanced  to 
provide  useful  tools  for  the  design,  development  and  use  of 
statistical  algorithms. 

The  SAE  should  be  designed  to  run  in  an  established 
operating  system.  An  operating  system  that  supports  mathematical 
and  text  manipulations  is  a  necessary  foundation  for  a  successful 
environment.  The  SAE  should  be  an  enhancement  to  the  operating 
system;  not  a  restriction.  The  user  should  be  able  to  select 
from  any  of  the  tools  offered  by  the  operating  system,  as  well  as 
those  provided  in  the  SAE. 

The  tools  provided  in  the  SAE  3hould  include  an  interpreter 
or  compiler  of  some  type,  which  would  allow  the  user  to  write 
programs  to  analyze  data  files.  A  stored  program  system  is 
necessary  to  allow  algorithms  to  be  used  repeatedly  and  modified 
for  varying  needs  or  improvements.  Mathematical  theorems,  such 
as  those  developed  in  the  previous  chapters,  may  be  applied  in 
many  different  ways  to  assist  in  solving  problems  in  a  large 
domain.  Providing  a  fixed  programmed  solution  to  a  particular 
problem  is  not  efficient  use  of  the  effort  required  to  produce 
the  mathematical  theorem. 

A  syntatical  editor  should  be  incorporated  in  the  system  to 
assist  the  user  in  writing  valid  programs.  Such  a  specialized 
editor  is  typical  of  interactive  programming  environments  like 
Smalltalk,  MENTOR,  Interlisp  and  others  CRef.  Uinograd  1973: ih- 
16)  . 

Useful  information  should  be  available  to  the  user  at  all 
times.  Information  about  the  proper  use  of  available  commands, 


current  status  of  the  system  or  editor,  and  information  about 
errors  committed  in  programming.  ’Help’  functions  can  provide 
much  of  this  information  from  stored  text  files  Ce.g.  ’man’  in 
UNIX  and  ’help’  in  UMS) . 

The  SAE  system  should  be  designed  to  be  extensible  in 
several  mays.  The  environment  should  allow  the  use  of  any  new 
programs  that  are  provided  for  the  resident  operating  system. 
This  would  allow  new  tools  to  be  created  independently  to  perform 
data  handling,  pre-  and  post-processing  of  data  or  results, 
generation  of  information  displays,  real-time  processing  of 
failure  data  or  new  methods  of  analysis. 

flodif  ications  should  be  allowed  in  the  language  to 
incorporate  new  mathematical  methods  or  improve  those  already  in 
use.  The  ’help’  information  data  should  be  able  to  be  modified 
to  incorporate  corrections,  improvements,  and  user  tailored 
information  to  personalize  the  system  to  the  programmer’s  needs. 

In  fact,  modifications  should  be  allowed  to  all  parts  of  the 
environment  program.  This  would  allow  the  user  a  choice  when  new 
tools  or  features  are  needed.  The  SAE  should  be  a  living  entity 
that  changes  to  meet  the  needs  of  its  users. 

An  Example  Environment 

In  the  course  of  developing  the  software  to  apply  the 
mathematical  theorems  of  chapters  3.  4  and  5,  a  minimal  SAE 
system  has  been  created.  To  demonstrate  the  application  of  this 
environment  the  following  paragraphs  describe  the  use  of  the 
system  to  analyze  failure  data  in  two  separate  cases. 
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Figure  7.1.  IM5L  Data  From  Populations  With  Different  MTBF's 

The  first  case  is  the  comparison  of  failure  data  that  has 
been  generated  from  known  exponential  distributions,  using  an 
’IMSL’  library  function.  Data  was  generated  for  MTBF’s  of  E,  3, 
and  4  (see  Figure  7.1)  and  is  contained  in  files  named  ’dS’,  ’d3’ 
and  ’d4',  respectively.  We  know  what  the  results  of  the 
comparison  should  be;  that  the  samples  did  not  come  from 
populations  with  the  same  failure  distribution.  However,  we  will 
perform  the  analysis  to  demonstrate  how  the  system  would  indicate 
this  result. 

Before  we  compare  this  data.  we  must  use  the  environment  to 
create  a  program  that  will  perform  the  analysis.  There  are  three 
or  four  parameters  that  must  be  assigned  in  the  definition  of  the 
program.  as  we  mentioned  at  the  end  of  Chapter  B.  The  method  of 
calculation,  exact  or  asymtotic.  must  be  specified.  The 
accuracy  of  the  result  must  be  specified  in  the  terms  to  be  used 
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in  the  calculations.  Then  the  maximum  number  of  samples  to  be 
compared,  needs  to  be  stated.  The  last  two  parameters  are 
necessary  to  define  the  amount  of  storage  needed  by  the  program, 
internally . 

There  is  one  more  parameter  that  may  be  specified  when  the 
program  is  defined,  the  level  of  significance.  This  is  the 
probability  that  the  statistic  will  indicate  that  the  samples  do 
not  come  from  populations  with  the  same  failure  distribution, 
when  in  fact,  they  do.  It  may  be  convenient  to  have  a  program 
that  always  uses  the  same  level  of  significance,  such  as,  the 
case  where  similar  comparisons  will  be  done  several  times  on 
different  sets  of  data.  The  more  general  case  will  require  that 
the  level  of  significance  be  entered  by  the  user  when  the  program 
is  run.  The  same  data  may,  then,  be  tested  at  different  levels 
of  significance  by  the  same  program. 

These  parameters  are  defined  in  the  ’5AE’  programming 
language.  The  ’definition  program’  containing  these  commands  is 
then  compiled,  which  creates  the  ’test  program’  which  will 


evaluate  sample  data  in  the  way  just  specified.  The  program  can 
be  used  as  often  as  necessary  to  compare  any  sets  of  data  to 
which  the  parameters  of  the  program  apply.  The  definition 
program  may  also  be  modified  at  any  time  and  used  to  create 
another  test  program  for  evaluating  sample  data. 

An  example  showing  the  use  of  the  environment  to  analyze  the 
data  of  Figure  ~’.l  is  shown  in  Figure  n .  S .  In  the  case  shown, 
the  ’definition  program'  was  previously  created  using  a  simple 
text  editor.  The  SAE  system  contains  an  editor  which  assists  the 
programmer  by  providing  immediate  compilation  of  the  edited  text 


SAE  >  cat  test.src 
—  Test  program 

environment  Cmaxterms  -  7,  method  -  asymtatic); 

’’test?”  -  lrt  Csamples  -  10); 

SAE  >  mv  test.src  test7.src 

SAE  >  c  test7.src 

SAE  Compiler,  Version  0.B 

Compiling  test7.src: 

1  —  Test  program 

B  environment  Cmaxterms  ■*  15,  method  -  exact); 

3  ”testl5e”  •  lrt  Csamples  ■  10); 

Summary:  3  lines  0  error 

SAE  >  testlSe  dl  dB  d3 

Likelihood  Ratio  Test  Program  Uersion  B.O 

Exact  Method  For  calculating  test  criteria 
Maximum  number  of  terms  used:  15 
10  Samples  may  be  given 

Level  of  significance  will  be  requested  later 
Summary : 

Test  criteria  from  data  Files  -  0.B03B18 
Enter  desired  level  of  significance:  0.1 

Probability  that  LRT  value  is  less  than  or  equal  to  0.B0361S 

when  the  sample  populations  have  the  same  Failure  rate  -  0.000 

Reference  point  @  0.100  Significance  “  0.790B46 
Therefore: 

. . .  Samples  CANNOT  be  assumed  to  have  come  from  populations 
with  the  same  Failure  distributions 

SAE  > 


Figure  7.B.  Example  Solution  Using  the  SAE  System 


by  the  system  compiler.  The  use  of  the  SAE  editor  would  make  it 
unnecessary  to  compile  the  'definition  program’  after  editing. 
More  details  are  given  in  Users  Manual  CAppendix  E) . 
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In  the  example  shown  in  Figure  7.2,  the  exact  method  was 
used  with  a  maximum  of  15  terms  in  the  calculations.  The  maximum 
value  of  10  samples  is  does  not  restrict  the  program  to  only  be 
used  with  exactly  10  samples  but,  allows  the  same  test  program  to 
analyze  up  to  that  number  of  sample  files.  The  final  parameter, 
level  of  significance,  was  not  defined  For  the  program,  which 
means  that  the  test  program  will  prompt  the  user  to  provide  a 
value  each  time  it  is  run.  The  test  program,  ’testlSe’,  may  be 
used  as  often  as  necessary,  where  these  parameters  are  adequate 
for  the  analysis. 

When  ’testl5e’  is  executed,  the  parameters  have  been 
determined  are  displayed  as  a  program  header.  In  this  case,  the 
maximum  number  of  terms,  the  maximum  number  of  samples,  and  the 
method  of  calculation,  are  all  provided  for  the  user.  The  test 
criteria  is  calculated  and,  because  it  was  not  specified  when  the 
program  was  defined,  the  level  of  significance  is  requested  from 
the  user . 

At  this  point,  the  ’p-value’  or  ’probability  value’  is 
computed  for  the  test  criteria  value  computed  from  the  data 
given.  This  is  the  probability  that  the  test  criteria  value  is 
less  than  or  equal  to  the  given  value  when  the  populations  do,  in 
fact,  have  the  same  failure  distribution.  In  other  words,  it  is 
the  probability  that  the  normal  evaluation  of  the  test  criteria 
would  IMPROPERLY  indicate  that  the  samples  were  NOT  from 
populations  with  the  same  failure  rates.  If  this  value  is  less 
than  one  tenth  of  a  percent,  then  only  zero  will  be  given. 

This  ’p-value’  is  the  switching  point  for  the  level  of 


significance.  If  the  level  of  significance  requested  is  less 
than  or  equal  to  the  ’p-value’  computed,  then,  the  test  program 
will  indicate  that  the  samples  ’cannot  be  assumed  to  have  come 


from  populations  with  the  same  failure  distributions.’  On  the 
other  hand,  if  the  level  of  significance  is  higher  than  the  ’p- 
value’  the  test  will  indicate  that  the  samples  ’may  have  come 
from  papulations  with  the  same  failure  distribution.’  The  user 
has  the  freedom  to  select  the  value  he  desires  and  is  given 
complete  knowledge  about  how  the  selection  of  the  level  of 
significance  will  affect  the  results  of  the  test. 

When  the  level  of  significance  was  determined  by  the 
programmer  and  cannot  be  changed  for  the  test  program  being  used, 
the  ’p-value’  is,  still,  computed  to  show  the  relative  value  of 
the  decision  made  by  the  program.  Thus,  the  user  is  always  given 
the  information  needed  to  properly  interpret  the  program  results. 

In  this  way  this  environment  has  assisted  the  programmer  to 
use  the  method  of  analysis  in  the  most  general  applications.  The 
programmer  is  restricted  to  the  proper  procedure  for  the  analysis 
but  not  limited  in  the  data  he  may  analyze  or  the  significance  of 
the  results.  It  is  the  user’s  responsibility  to  only  apply  the 
analysis  where  it  is  appropriate;  to  samples  whose  expected 
failure  distribution  is  exponential,  where  the  data  fits  the 
definition  of  a  type  II  censored  sample. 

The  operation  of  the  SAE  system  is  described  in  more  detail 
m  Appendix  E.  This  system  is  not  intended  to  be  a  complete 
environment,  but  only  to  demonstrate  that  an  environment  could  be 
useful  in  the  application  of  complex  mathematical  solutions  for 
data  analysis.  Recommendations  for  expansion  of  this  concept  and 
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Chapter  UI 1 1 


Summary  and  Recommendations 


Comparing  the  reliabilities  of  several  complex  systems  can 
often  be  reduced  to  a  comparison  of  their  underlying  failure 
distributions.  where  these  failure  distributions  are 
exponential,  the  comparison  further  reduces  to  examination  of  the 
mean-t  ime-betueen-f  ai  lures  '  HTBF for  the  systems.  In  1953, 
Epstein  provided  a  procedure  using  a  likelihood  ratio  test 
statistic  for  comparing  the  hTBF  of  two  exponential  distributions 
based  c^  sample  failure  data.  The  technique  was  limited  to 
comparing  c-l^  tup  samples  containing  exactly  the  same  number  of 
f  a  ^  .  i _ .  r  e  s 

This  dissertaticn  presents  the  derivation  of  a  likelihood 
ratio  test  criteria  tHat  is  applicable  to  multiple  samples, 
cc-ta  i  -  i~q  a>cst  a~*  r'u",ber  of  failures.  The  significant 
co-'tr ;  b~.t  i  o"  is  cc^tai'-ed  ;p  the  derivation  of  the  h-th  moment  of 
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adCit.c^  t  •'e  application  if  this  work  is  discussed 
e  re^s;  e .  „  a"p  a  cc-c^ter  software  environment  has  been  created 
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Statistical  Package  Implementation 


An  obvious  suggestion  concerning  the  implementation  of  the 
test  criteria  would  be  to  extend  the  environment  to  include  an 
existing  library  of  programs  Ce.g.  IMSL,  BMDP,  etc.)  and  allow 
the  user  to  incorporate  these  functions  into  programs  similar  to 
’table’  and  'lrt'.  It  might  be  of  more  practical  value,  however, 
to  implement  these  test  criteria  in  a  form  that  could  be  included 
in  an  existing  library  or  data  base  environment.  As  previously 
mentioned  in  the  text,  survival  analysis  functions  are  generally 
lacking  in  the  statistical  packages  available  now. 

Automatic  Programming  Environments 

The  SAE  provides  a  small  level  of  automatic  programming  to 
the  user.  The  environment  allows  the  user  to  define  some 
important  characteristics  of  the  program  in  a  simple  language. 
This  system  limits  the  user’s  access  to  the  details  of  the 
analysis  technique.  However,  it  assists  the  user  in  applying  the 
procedure  correctly  by  reducing  his/her  elements  of  concern  to 
those  that  directly  affect  the  results  of  the  test;  the  accuracy 
of  the  result.  the  number  of  samples  that  may  be  compared,  the 
level  of  significance  for  the  comparison,  and  the  method  of 
calculation  Cthe  choice  of  exact  or  asymtotic  C.D.F.). 

□nee  these  parameters  are  identified,  the  SAE  system 
comciler  uses  the  UNIX  ’make’  facility  to  construct  the  program 
as  reauested.  The  new  program  may  then  be  used  repeatedly  to 
a-a.^ee  different  sets  of  data  in  exactly  the  same  way.  If  the 
r*  --'a-  :  s  destroyed  or  no  longer  of  use,  a  new  copy  may  be 


created  easily  with  the  same  or  different  char acter : at  1 cs  . 

Application  of  new  techniques  from  artificial  intelligence 
work  may  help  to  develop  future  systems  with  e-oanded 
capabilities  in  this  area.  Automatic  programming  techniques  are 
currently  being  used  in  other  areas  to  increase  the  speed  and 
accuracy  with  which  programs  are  created.  The  compie  ity  of  the 
tasK  involved  1 programming  will  demand  that  the  types  of 
programs  created  becomes  more  specialized  as  the  power  of  the 
automated  techniques  increase. 


Improve  the  Processing  Speed 


A  problem  with  the  implementation  of  these  formulas  is  that 
they  are  dependent  on  the  creation  of  several  sets  of  series 
coefficients.  This  is  a  time  consuming  tasl  .  Mere  than  half  of 
the  execution  time  '68*.  average,  based  on  BO  computations  of  5  to 
5  samples  with  from  3  to  100  failures  per  sample1  is  spent  on  the 
creation  of  the  coefficient  values.  Of  course,  the  number  of 
terms  requested  for  accuracy  of  the  computations  will  affect  this 
timing.  But,  for  lower  number  of  failures  m  each  sample,  more 
terms  are  necessary  for  accuracy  of  the  result.  Consideration 
should  be  given  to  finding  a  more  efficient  implementation  of  the 
formulas  than  has  been  dene  here. 

Parallel  processing  systems  offer  a  definite  possibility  to 
improving  the  speed  of  the  calculations .  The  two  dimensional 
coefficients  'C  could  be  computed  independently  from  the  q'  and 
’A'  coefficients  in  the  current  software  implementation  'these 
coefficients  are  named  'C;r',  and  1 Ar  respectively,  m  the 


software  listings  given  m  Append i--  P 


b"cjrrent  processing  of 


K 


these  two  distinct  paths  in  the  computation  of  the  coefficients 


would  significantly  reduce  the  processing  time.  Implementation 
of  these  computations  as  concurrent  ’tasks’  on  a  multi¬ 
tasking  single-processor  system  might  also  improve  the  speed  of 
the  computations,  however,  this  would  be  more  dependent  upon  the 
operating  system’s  task  control  parameters. 

Parallel  processing  may  also  be  applied  to  the  system  level 
of  the  SAE  by  making  the  editing  and  interpreting  concurrent 
tasks.  The  SAE  system  editor  currently  calls  the  compiler  to 
evaluate  a  part  of  the  text  each  time  a  modification  is  made  to 
any  line  m  the  editor.  A  compiler  running  concurrently  with  the 
editor  might  improve  characteristics  of  that  tool.  Usually,  the 
SAE  programs  are  very  small  (3  or  4  lines)  and.  so,  there  is  not 
a  lot  of  time  to  be  gained  in  this  area. 

i 

Application  to  Other  Failure  Distributions 

While  all  of  the  suggestions  just  made  relate  to  the 
computer  programming  aspects  of  this  effort.  that  does  not 
diminish  the  usefulness  of  the  mathematical  work.  The  techniques 
used  to  derive  the  h-th  moment  of  the  test  criteria  have  been 
available  to  mathematicians  for  a  long  time  (Ref.  Stekloff  1914, 
Wilks  196"7  '  .  Their  application  is  this  work  should  create  some 
interest  to  Find  other  cases  where  they  may  be  applied. 

In  particular.  since  this  work  considered  the  single 
oarameter  exponential  distribution,  the  first  step  would  be  to 
apply  a  similar  approach  to  the  case  of  the  two  parameter 
exponential  failure  distribution.  Dr.  B.  N.  Nagarsenk.er ,  my 
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advisor  in  this  work,  is  currently  exploring  this  problem.  IF  he 
is  successful.  further  work  should  include  the  examination  of 


distributions  that  are  closely  related  to  the  exponential 
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Appendix  A 

Calculation  of  Adjustment  Factors 


The  purpose  of  this  appendix  is  to  show  the  calculation  of 
the  convergence  factors  defined  in  Chapters  4  and  5.  These 
factors  are  delta  (  5  ),  which  is  defined  bu 


=  Q.-& 


(  A  .  1  ) 


when  making  a  substitution  in  Eq  .  (4.0)  For  C  and  ,  u/hlch 
is  a  constant  necessaru  to  apply  Lemma  4 . 3  to  Eq .  (4.12).  The 
values  of  these  factors  are  calculated  in  the  fallowing  sections. 


Calculation  of  Delta 

Delta  is  an  adjustment  factor  defined,  in  Chapter  4,  to  set 


A,  -  0 


CA.2) 


when 


Ar’ 

r(rv0p  L  J 


CA.3) 


from  Eq .  (4.12)  where  p  is  the  number  of  samples  and  is 
the  percentage  of  failures  contained  in  the  i-th  sample  CEq. 
(4.5).  £>r  Is  the  Bernoulli  Polynomial  of  degree  T  and  order 
unity.  The  second  polynomial  is 
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C  A  .  4  ) 
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Now , 


can  be  written 


A  -  ±  fees)- 1 
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C  A .  5) 


Setting  the  left-hand  aide  to  zero  and  expanding  the  Bernoulli 
Polynomials  to  get 
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Computing  the  summation  gives 


0-  ^  (V-SAV  §%ps- 

Cp  ^ 


and,  then  combining  terms 


C  A .  7) 


1] 


CA.B) 


Since,  p  must  have  an  integer  value  greater  than  S,  delta  is 
defined  by 


C  A .  9) 


as  stated  in  Chapter  4. 

In  Chapter  5,  the  value  of  delta  depends  on  *r  These 
coefficients  have  a  relationship  to  the  Ar  coefficients  of 
Chapter  4.  In  fact, 


T  -  _  A 


CA. 10) 


as  stated  in  Eq.  (5.4).  It  is  obvious  that  the  same  value  of 
delta,  as  derived  above,  mill  satisfy  the  requirement  that 


1-0 


(A. 11) 


as  stated  in  Chapter  5.  This  value  of  delta  will  now  be  used  to 
calculate  the  required  value  for  Q.  ,  the  other  converoence 
factor  used  in  Chapters  4  and  5. 


Calculation  of  (X 

The  value  of  Q.  is  chosen  such  that  the  coefficient  is 

zero.  The  coefficients  are  defined  in  Eq .  (4.14)  by 


1*0  1 


(A. 12) 


where  =  1  and 
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(A. 13) 


where 
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(A. 14) 


Also,  from  Eq .  C4.12) 
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The  value  of  £ 


\  can  be  Found  from 
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where  A,’0, 
So,  if 


DSi,  ’  <J,  =  A,  cn-17) 

from  the  diecussion  of  delta  in  this  appendix, 
is  desired,  then 


0-  D, 


'  C,,  D,. 


(A. 10) 


which  means 

0  T  C.^  ’  \  [8,  (<k)  -  B^Ca+v)] 

Expanding  the  Bernoulli  Polynomials  gives 

which  reduces  to 

Q)  -  v  -  2,a.  v  -  v z 
( 1  -  v) 

or  C\  -  — —  as  stated  in  Chapter  4. 


CA.19) 


C  A .  BO) 


C A . 21 ) 


Thus,  the  values  of  the  convergence  factors  <S  and  CV.  have 

been  calculated  to  meet  the  requirements  specified  in  Chapters  4 
and  5. 


Appendix  B 


Tables  of  Exact  Computation  of  Statistic 

This  appendix  contains  percentage  point  tables  generated 
from  application  of  the  exact  form  of  the  cumulative  distribution 
function  (C.D.F.)  of  the  statistic.  The  tables  were  generated 
using  a  maximum  of  SO  terms.  Similar  tables,  containing  the  same 
information  can  be  generated  by  defining  a  ’table’  program  for 
the  SAE  environment  with  the  following  commands: 

environment  Cmaxterms  “  SO,  method  “  exact); 

“table"  ■  table  C 

samples  ■  (2,6,1), 

Failures  -  (3,100,5), 

alpha  -  (0.1,  0.05,  0.0E5,  0.01) 

5; 

A  more  detailed  explaina tion  can  be  found  in  Appendix  E. 

The  tables  provide  percentage  points  of  the  statistic  L 
which  is  function  of  the  statistic,  lambda,  given  in  Theorem  3.1. 
The  necessary  equivalences  are: 


p  =  number  of  samples 
r  “  number  of  failures  per  sample 
2  -  likelihood  ratio  defined  by  Theorem  3.1 
R  “  total  number  of  failed  items  (  “  pr) 

The  first  five  tables  are  for  situations  where  the  samples 
have  an  equal  number  of  failures.  The  last  two  tables  are 
provided  to  demonstrate  the  use  of  these  theorems  for  cases  where 

B  -  1 


the  number  of  feilurea  is  not  the  same  for  eacn  semp.e 

Corresponding  tables  generated  using  the  as^mtotic  e*parAs.o 
Of  the  exact  C.D.f.  are  provided  in  Appendix  C 
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Table  B-l 
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Percentage  Points  of  L  •  1 
f  or 


Two  Samples  with 

Equal  Number 

of  Failures 

a . 

r 

as 

0 . 1 

Level  of  Significance 

0.05  0.025  0.01 

0.005 

3 

C . 6 1 3~5 1 

0,500527 

0.405047 

0.303074 

0.243556 

1 

C .69020? 

0.600707 

0.513700 

0.415390 

0.352607 

5 

C  .  •'52"’2B 

0.660244 

0 . 590433 

0 . 498095 

0.430000 

5 

0  .  _T90694 

0 . 716537 

0.646769 

0.562503 

0.505173 

7 

0.010600 

0 . 752604 

0.609725 

0.612301 

0.550654 

0 

0 . 039978 

0.700716 

0.723407 

0.652237 

0.602059 

9 

0.056050 

0.003074 

0.750607 

0.604790 

0.637089 

10 

0 ,0'7O52S 

0.021313 

0.773052 

0.711046 

0.667915 

1 1 

0.801014 

0 .036472 

0.791757 

0.734671 

0.693414 

^  P 

0.091295 

0.049267 

0  .B07629 

0.754175 

0 . 715323 

13 

0 . 0993?C 

0.060209 

0.021261 

0.771027 

0.734340 

17 

0.906329 

0.069674 

0.033096 

0.785731 

0.750997 

15 

0.912390 

0.077941 

0.043466 

0.790669 

0.765703 

16 

0.917714 

0.005223 

0.052626 

0.810141 

0.770700 

17 

0.922429 

0.091606 

0.B60775 

0.020302 

0.790403 

10 

0.926633 

0.097461 

0.060072 

0.829577 

0.001015 

19 

0.930405 

0.902652 

0.074644 

0.837000 

0  .B10543 

20 

0.933000 

0.907343 

0.000593 

0 .B45414 

0.019204 

25 

0.946014 

0.925330 

0.903500 

0.074576 

0.05286- 

30 

0.955550 

0.937403 

0.919039 

0.094493 

0  .B^SBl 

35 

0.961021 

0.946230 

0.930269 

0.908956 

0 .89282- 

40 

0.966542 

0.952031 

0.930765 

0.919935 

0 . 90564'7 

45 

0.970224 

0.957900 

0.945416 

0.928552 

C  .915-37 

50 

0.973176 

0.962129 

0.950764 

0.935495 

C  923060 

55 

0.975595 

0.965527 

0.955150 

0 .94  1200 

C  937^  V 

60 

0.977614 

0.960366 

0.950032 

C  .945993 

0  9  36  42 

65 
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0.970772 
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0 . 9500S~ 
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0.972039 
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0 .956S9  ’. 

■ «  « h.  i . 

00 

0.903101 

0.976204 

0 .96B994 
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Table  B-2 


Percentage  Points  of  L  ■  "X 
For 

Three  Samples  with  Equal  Number  of  Failures 


I  Level  of  Significance 

Failures  ! 


r 

1  0.1 

0.05 

0.025 

0.01 

0.005 

4 

0.544045 

0.454030 

0.378431 

0.297548 

0.248114 

5 

0.61B279 

0.535089 

0.463141 

0.3B2721 

0.331341 

6 

0.671736 

0.595989 

0.528815 

0.451535 

0.400699 

7 

0.712246 

0.643136 

0.5B0754 

0.507508 

0.458322 

e 

0.743947 

0.680606 

0.622674 

0.553611 

0.506519 

3 

0.769405 

0.711050 

0.657134 

0 . 59209B 

0.547224 

10 

0 . 790206 

0.736252 

0.685921 

0.624640 

0.501956 

11 

0.807717 

0.757443 

0.710306 

0 . 652475 

0.611083 

ie 

0.022403 

0.775505 

0.731215 

0.676533 

0.637906 

13 

0.835150 

0.791077 

0.749334 

0.697520 

0.660723 

14 

0.046135 

0.804639 

0.765182 

0.7159B1 

0.6B0878 

15 

0.855751 

0 .816555 

0.779157 

0.732340 

0.698805 

16 

0.864238 

0.82710S 

0.791571 

0.746932 

0.714047 

17 

Q.B717B4 

0.836512 

0.802670 

0.760028 

0.729204 

ie 

0.070536 

0.844951 

0.812651 

0.771043 

0.742342 

19 

0.884614 

0.852563 

0.B21675 

0 . 7B2557 

0.75420B 

20 

0.890113 

0.859465 

0.829873 

0.792314 

0.76S03B 

25 

0.911265 

0.886130 

0.B61689 

0.B30411 

0.007509 

30 

0.925593 

0.904298 

0.883494 

0.856726 

0.B37017 

35 

0.93593B 

0.917471 

0.899367 

0.875903 

0 . B5B699 

40 

0.943759 

0.927457 

0.911437 

0.8906B3 

0.075299 

45 

0.949B79 

0.S352B9 

0.920923 

0.902271 

0.088412 

50 

0.954797 

0.941594 

0.928574 

0.911639 

0.899033 

55 

0.950837 

0.946701 

0.934B76 

0.919369 

0.907809 

60 

0.962214 

0.951121 

0.940157 

0.925856 

0.915183 

65 

0.965079 

0.954807 

0.944645 

0.931378 

0.921465 

70 

0.967540 

0.957977 

0.948508 

0.936134 

0.926881 

75 

0.969677 

0.960731 

0.951866 

0.940274 

0.931599 

B0 

0.971550 

0.963146 

0.954814 

0.943910 

0.935745 

85 

0.973205 

0.965281 

0.957421 

0.947129 

0.939417 

90 

0.974679 

0.967183 

0.959744 

0.949999 

0.942692 

95 

0.975998 

0.968B87 

0.961827 

0.952573 

0.945632 

100 

0.977187 

0.970422 

0.963704 

0.954895 

0.948285 

Table  B-3 


_P/* 

Percentage  Points  of  L  =  A. 
for 

Four  Samples  with  Equal  Number  of  Failures 


Level  of  Significance 


Failures  I 


r 

i  0.1 

0.05 

0.025 

0.01 

0.005 

5 

0.521563 

0.443317 

0 . 378008 

0 . 307225 

0.263112 

6 

0.583391 

0.509907 

0.446843 

0.376314 

0 . 330959 

7 

0.631452 

0.562920 

0.502938 

0.434348 

0.389247 

a 

0.669762 

0.605914 

0 . 549209 

0.403202 

0.439209 

9 

0.700961 

0.641390 

0.587881 

0.524868 

0.482201 

10 

0.726835 

0.671114 

0.620610 

0.560526 

0.519426 

n 

0.740625 

0.696353 

0.64B627 

0.591373 

0.551883 

12 

0.767219 

0.718038 

0.672859 

0.618284 

0.580382 

13 

0 . 703260 

0 . 736860 

0 . 694009 

0.641944 

0.605574 

14 

0 . 797257 

0.753347 

0.712623 

0.662894 

0.627984 

15 

0.809558 

0.767903 

0.729124 

0.681565 

0 . 648035 

16 

0.820457 

0.7B0847 

0.743849 

0.698304 

0.666072 

17 

0.830180 

0.792431 

0 . 757068 

0.713390 

0.682370 

10 

0.B38907 

0 . 802857 

0 . 768998 

0.727055 

0.697187 

IS 

0.846783 

0.812290 

0.779819 

0.739407 

0.710692 

20 

0.853927 

0 . 820865 

0 . 789676 

0 . 750046 

0.723057 

25 

0.801555 

0.854197 

0.828184 

0 . 795506 

0.771910 

30 

0.900403 

0.877008 

0.854802 

0 . B2663B 

0 .806181 

35 

0.914081 

0.893774 

0 . 874292 

0.849565 

0.031529 

40 

0.924457 

0 . 906475 

0.BB9174 

0.867147 

0.851029 

45 

0 . 932598 

0.916465 

0 . 900909 

0.B81054 

0.866491 

50 

0.939156 

0.924528 

0.910399 

0.892329 

0.879049 

55 

0.944551 

0.931172 

0.918231 

0.901654 

0.889451 

60 

0 . 949067 

0.936741 

0.924804 

0.909493 

0 . 898207 

65 

0 . 952903 

0.941477 

0 . 930400 

0.916176 

0.905679 

70 

0.956202 

0.945553 

0.935221 

0.921940 

0.912130 

75 

0 . 959070 

0.949090 

0.939417 

0 . 926963 

0.917755 

80 

0.961584 

0.952211 

0.943103 

0.931370 

0.922704 

85 

0.963008 

0.954964 

0.946367 

0.935291 

0.927091 

90 

0 . 965788 

0.957418 

0.949276 

0.938781 

0.931000 

95 

0.967563 

0.959618 

0.951886 

0.941915 

0.934525 

100 

0.969163 

0.961602 

0.954241 

0.944743 

0.937701 

Table  B-4 


Percentage  Points  of  L  ■  i 
for 

Five  Samples  with  Equal  Number  of  Failures 


I  Level  of  Significance 

Failures  I 


r 

1  0.1 

0.05 

0.025 

0.01 

0.005 

6 

0.511852 

0.441912 

0.383279 

0.319062 

0.278468 

7 

0.564710 

0.498157 

0.441165 

0.377245 

0 . 335876 

8 

0 . 607562 

0.544621 

0.489861 

0 . 427346 

0.386169 

9 

0.642911 

0 . 583499 

0.531173 

0.470611 

0.430174 

10 

0.672523 

0.616434 

0.56654B 

0.508178 

0.46B7B1 

11 

0.697665 

0.644648 

0.597120 

0.541009 

0.502802 

12 

0.719264 

0.669066 

0.623768 

0.569892 

0.532936 

13 

0.738010 

0.690391 

0.647180 

0 . 595464 

0.559770 

14 

0 . 754428 

0.709167 

0 . 667898 

0.618242 

0.583789 

15 

0.768924 

0.725819 

0.686353 

0.63B647 

0.605395 

16 

0.781813 

0.740683 

0.702891 

0.657021 

0.624922 

17 

0.793348 

0 . 754032 

0.717791 

0 . 673647 

0.642647 

18 

0 . 803730 

0 . 766082 

0.731282 

0.688759 

0 . 65BB03 

19 

0.813123 

0.777015 

0 . 743553 

0 . 702550 

0.673585 

20 

0.821661 

0.786976 

0 . 754760 

0.715184 

0.687157 

25 

0.854848 

0.825911 

0 . 798802 

0.765178 

0.741138 

30 

0.877638 

0 . 852842 

0.829480 

0.B00317 

0.779336 

35 

0.B94251 

0 . 872570 

0.852061 

0.826342 

0.807755 

40 

0 . 906895 

0.887640 

0.869370 

0.846381 

0.B29711 

45 

0.916840 

0 . 899526 

0.883059 

0.862282 

0.847177 

50 

0.924867 

0.909140 

0.894154 

0.B75205 

0.861401 

55 

0.931481 

0.917076 

0.903327 

0.BB5914 

0.873207 

60 

0 . 937026 

0.923737 

0.911039 

0.894932 

0.883162 

65 

0.941740 

0.929409 

0.917612 

0.902631 

0.891669 

70 

0.945798 

0 . 934295 

0.923281 

0 . 909278 

0.899022 

75 

0.949328 

0.938549 

0.928220 

0.915077 

0.905442 

80 

0.952426 

0.942286 

0 . 932562 

0.920180 

0.911095 

85 

0.955167 

0.945595 

0.936409 

0.924704 

0.916110 

90 

0.957610 

0.948544 

0 . 939841 

0.92B743 

0.920590 

95 

0.959800 

0.951191 

0.942922 

0.932371 

0.924616 

100 

0.961775 

0.953579 

0.945702 

0.935648 

0 . 928254 

B 
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Table  B-5 


!  ^ 

.  Percentage  Points  of  L  -  A 

|  For 

Six  Samples  with  Equal  Number  of  Failures 

k 

|  I  Level  of  Significance 

Failures  i 


r 

1  0.1 

0.05 

0.025 

0.01 

0.005 

7 

0.507662 

0.443757 

0.389965 

0 . 330565 

0.292616 

B 

0.553651 

0.492349 

0.439869 

0 . 380822 

0.342395 

9 

0 . 592052 

0.533547 

0.4B2B02 

0.424873 

0.386631 

10 

0.624529 

0.568809 

0.519973 

0.463575 

0.425918 

11 

0.652316 

0 . 599270 

0.552382 

0.497720 

0 . 460082 

12 

0.676338 

0.625814 

0.580839 

0.527994 

0.492105 

13 

0 . 697299 

0.649129 

0 . 605993 

0.554974 

0.520098 

14 

0.715740 

0.669750 

0.628370 

0.579140 

0.545301 

15 

0 . 732085 

0.688129 

0 . 648392 

0.600092 

0 . 568085 

16 

0 . 746668 

0 . 704590 

0.666403 

0.620561 

0.588766 

17 

0 . 759756 

0.719418 

0 . 682686 

0.638424 

0.607611 

18 

0.771568 

0.732843 

0.697475 

0.654713 

0.624846 

19 

0 . 782279 

0.745053 

0.710962 

0.669621 

0.640661 

20 

0 . 792035 

0.756203 

0.723310 

0.683313 

0.655221 

25 

0.830139 

0.800013 

0.772102 

0.737016 

0.713493 

30 

0.856470 

0.830521 

0.806334 

0.776421 

0 . 755058 

35 

0 . 875745 

0 . 852973 

0.B31655 

0.B05162 

0.786153 

40 

0.890462 

0.870102 

0.851135 

0.827379 

0.B10273 

45 

0.902065 

0.883790 

0 . 866582 

0 . B45060 

0.829520 

50 

0.911446 

0.894818 

0.879129 

0.B59463 

0.045231 

55 

0.919189 

0.903936 

0 . 089522 

0.871420 

0 . 058297 

60 

0.925687 

0.911601 

0.898271 

0.B81504 

0.869331 

65 

0.931219 

0.918134 

0.905737 

0.890124 

0.878774 

70 

0 . 935904 

0.923760 

0.912183 

0.897576 

0.886946 

75 

0.940132 

0 . 928677 

0.917804 

0 . 904082 

0.894086 

00 

0.943775 

0.932992 

0.922749 

0.909811 

0 . 900380 

05 

0.947000 

0.936815 

0.927133 

0.914895 

0 . 905967 

90 

0.949876 

0 . 940226 

0.931047 

0.919437 

0.910962 

95 

0 . 952456 

0.943287 

0.934562 

0.923519 

0.915453 

100 

0.954783 

0.946050 

0.937736 

0 . 927208 

0.919513 

Table  B-6 


Percentage  Paints  of  L  ■  a 
For 

Tuio  Samples  with  Unequal  Number  of  Failures 
Level  of  Significance  is  0.5 


Percentage 

( 

» 

i  10 

rotal  Number  of 

Failures  ■  R 

100 

of  Failures 
per  Sample 

20 

60 

— 

0.50 

0.50 

0.66824355 

0.82131333 

0.93748256 

0.96212923 

0.45 

0.55 

0.66807749 

0.82126096 

0.93747601 

0.96213015 

0.40 

0 . 60 

0.66755956 

0.82109744 

0.93745503 

0.96212230 

0.35 

0.65 

0.66662578 

0.82080144 

0.93741700 

0.96210830 

0.30 

0.70 

0.66514658 

0.82032925 

0.93735617 

0 . 96208578 

0.E5 

0.75 

0.66287789 

0.81959629 

0.93726135 

0.96205065 

0.20 

0.80 

0.65934591 

0.81843068 

0.93710946 

0.96199434 

0.15 

0.85 

0.65355281 

0.81643861 

0.93604615 

0.96189658 

0.10 

0.90 

0.64306243 

0.81251018 

0.93630917 

0.96169657 

0.05 

0.95 

0.61368072 

0.80204031 

0.93471112 

0.96109370 

Table  B-7 


Percentage  Points  of  L  ■  A 
for 

Three  Samples  with  Unequal  Number  of  Failures 
Level  of  Significance  is  0.5 


Percentage 
of  Failures 
per  Sample 

1 

1 

1 

1 

Total  Number  of 

10  20 

Failures  -  R 

60 

100 

0.33 

0.33 

0.34 

0.30374316 

0.62865090 

0.85946431 

0.91350162 

0.30 

0.30 

0.41 

0.30321532 

0.62842843 

0 . 85942966 

0.91340832 

0 .  £6 

0 . 26 

0.47 

0.38187782 

0.62706290 

0.05934144 

0.91345444 

0.23 

0.23 

0.54 

0 . 37S6S433 

0.62693256 

0.85919570 

0.91339844  j 

0.20 

0.20 

0.60 

0 . 37647S07 

0.62554150 

0.05897620 

0.91331407  ! 

0.17 

0.17 

0.67 

0.37184652 

0.62348715 

0.85064841 

0.91318784 

0.13 

0.13 

0.74 

0.36505887 

0 . 62035B53 

0.85813902 

0.91299131 

0.10 

0.10 

0.80 

0 . 35502593 

0.61525808 

0.85727662 

0.91265730 

0.07 

0.07 

0.87 

0.33940541 

0 . 605B9024 

0.85555703 

0.91198531 

Appendix  C 


Tables  of  Asymtotic  Expansion  oF  Statistic 

This  appendix  contains  percentage  point  tables  generated 
from  application  of  the  asymtotic  expansion  of  the  cumulative 
distribution  function  CC.D.F.)  of  the  statistic.  These  tables 
were  generated  using  a  maximum  of  7  terms.  Similar  tables 
containing  this  data  can  be  generated  by  defining  a  ’table’ 
program  for  the  SAE  environment  with  the  following  commands: 

environment  Cmaxterms  -  7,  method  -  asymtotic); 

’’table”  -  table  C 

samples  *  C2 , 6 , 1 )  , 

failures  -  C3, 100,5), 

alpha  -  C0.1,  0.05,  0.025,  0.01) 

A  more  detailed  explaination  can  be  found  in  Appendix  E. 

The  tables  provide  percentage  points  of  the  statistic  L 
which  is  function  of  the  statistic,  lambda,  given  in  Theorem  3.1. 
The  necessary  equivalences  are: 


p  -  number  of  samples 
r  -  number  of  failures  per  sample 
X  "  likelihood  ratio  defined  by  Theorem  3.1 
R  -  total  number  of  failed  items  C  -  pr) 

The  five  tables  are  for  situations  where  the  samples  have  an 
equal  number  of  failures.  Corresponding  tables  generated  by  the 
exact  C.D.F.  are  provided  in  Appendix  B. 


Table  C-l 


Percentage  Points  of  L  ■  ^ 
for 

Two  Samples  with  Equal  Number  of  Failures 


Is 

i 

i 

Failures  1 

r  10.1 

Level 

0.05 

of  Significance 

0.085  0.01 

0.005 

tlVt! 

k? 

4 

0.698E07 

0.600706 

0.513779 

0.415398 

0.358607 

5 

0.75S7EB 

0.668844 

0.590433 

0.498895 

0.438088 

6 

0 . 790694 

0.716537 

0.646769 

0.568583 

0.505173 

i»! 

7 

0.818608 

0.758684 

0.689785 

0.618381 

0.558654 

0 

0.839978 

0.780716 

0.783487 

0.658837 

0.608059 

9 

0.856858 

0.803074 

0.750687 

0.684790 

0.637889 

$s 

10 

0.8705S5 

0.881313 

0.773058 

0.711846 

0.667915 

v& 

11 

0.881814 

0.836478 

0.791757 

0.734671 

0.693414 

IE 

0.891E95 

0.B49867 

0.807689 

0.754175 

0.715383 

::8 
i  * 

13 

0.899370 

0.860809 

0.881861 

0.771087 

0.734340 

14 

0 . 9063S9 

0.869674 

0 . B33096 

0.785731 

0.750997 

15 

0.91E389 

0.877941 

0.843466 

0.798669 

0.765703 

•Sj 

16 

0.917714 

0 . 885883 

0.858686 

0.810141 

0.77B7B0 

SB 

17 

0 . 9EE4S9 

0.891686 

0.B60775 

0.880381 

0.790483 

18 

0.9E6633 

0 . 897461 

0 . B68072 

0 . B29577 

0.801015 

19 

0.930405 

0.908658 

0.B74644 

0.B37B80 

0.810543 

E0 

0 . 933808 

0.907343 

0.880593 

0.B45414 

0.B19804 

$ 

E5 

0.946814 

0.985338 

0.903500 

0.874576 

0.858867 

30 

0.955550 

0.9374B3 

0.919039 

0.B94493 

0.875981 

35 

0.9618E1 

0.946830 

0.930869 

0 . 908956 

0 . 898887 

Pylv 

40 

0.96654E 

0.958831 

0.938765 

0.919935 

0.905647 

•r^ 

45 

0 . 970SS4 

0.9579BB 

0.945416 

0.98B55S 

0.915730 

50 

0.973176 

0.968189 

0 . 950764 

0.935495 

0.983868 

55 

0.975595 

0.965587 

0.955158 

0.941808 

0.930578 

60 

0.977614 

0.968366 

0 . 958838 

0.945993 

0.936198 

$$ 

65 

0. 979385 

0.970778 

0.961949 

0.950057 

0.940971 

70 

0.980793 

0.978839 

0.964688 

0.953558 

0.945084 

75 

0 . 988066 

0.974638 

0.966954 

0.956591 

0.94B661 

80 

0.983181 

0.976804 

0.968994 

0.959856 

0.951800 

85 

0.984165 

0.977598 

0.970796 

0.961613 

0.954578 

i 

90 

0.985040 

0.978887 

0.978400 

0.963718 

0.957054 

95 

0.985884 

0.979933 

0.973837 

0.965594 

0.959873 

H 

100 

0.986530 

0.980989 

0.975138 

0.967890 

0.961875 
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Table  C-2 


Percentage  Points  of  L  -  A 
For 

Three  Samples  with  Equal  Number  of  Failures 


1 

Failures  1 

r  10.1 

Level  of  SigniFi 

0.05  0.025 

cance 

0.01 

0.005 

4 

0.54361B 

0.452491 

0.376639 

0.295521 

0.245982 

5 

0.617586 

0.534185 

0.462046 

0.381413 

0.329905 

6 

0.671310 

0.595418 

0.528105 

0.450657 

0.399710 

7 

0.711966 

0.642754 

0.5B0271 

0.506895 

0.457619 

B 

0.743753 

0.68033B 

0 . 622330 

0.55316B 

0.506004 

9 

0.769265 

0.710856 

0.656881 

0.591769 

0.546836 

10 

0.790182 

0.736106 

0 . 685730 

0.624388 

0.581658 

11 

0.807638 

0.757331 

0.710159 

0.652278 

0.611649 

12 

0.822421 

0.775417 

0.731099 

0.676377 

0.637719 

13 

0.035101 

0.791007 

0.749241 

0 . 697394 

0.660571 

14 

0 . 846095 

0 . 804582 

0.765106 

0.715B7B 

0.680753 

15 

0.855718 

0.816508 

0 . 779094 

0.732254 

0.69B701 

16 

0.864211 

0 . 827066 

0.791518 

0.746861 

0.714760 

17 

0.871761 

0 . 836479 

0.802626 

0 . 759967 

0.729210 

18 

0.B7B517 

0.844923 

0.812614 

0.771792 

0.742279 

19 

0.884597 

0.052539 

0.821643 

0.782512 

0.754154 

20 

0 . 890099 

0 . 859444 

0.B29B45 

0.792276 

0.764990 

25 

0.911258 

0.886119 

0.061674 

0 . 830391 

0 . 807483 

30 

0.925588 

0.904292 

0 . B834B6 

0.856714 

0.837002 

35 

0.935936 

0.917466 

0.899362 

0.875976 

0.858690 

40 

0.943757 

0.927454 

0.911433 

0 .890678 

0.875292 

45 

0.949B77 

0.935287 

0.920920 

0.902267 

0.880408 

50 

0.954796 

0.941593 

0.928572 

0.911636 

0.899030 

55 

0.958836 

0.946780 

0.934875 

0.919367 

0.907007 

60 

0.962213 

0.951121 

0.940156 

0.925855 

0.915181 

65 

0.965078 

0.954807 

0.944644 

0.931376 

0.921463 

70 

0.967540 

0.957976 

0.948507 

0.936133 

0 . 926880 

75 

0.969677 

0.960730 

0.951866 

0.940273 

0.931598 

00 

0.971550 

0.963145 

0.954813 

0.943910 

0.935744 

85 

0.973205 

0.965281 

0.957421 

0.947129 

0.939416 

90 

0.974678 

0.9671B2 

0.959744 

0.949998 

0.942692 

95 

0.975998 

0.968886 

0.961826 

0.952572 

0.945631 

100 

0.9771B7 

0.970422 

0.963705 

0.954B96 

0.940207 

inou)a>Nicni/i4:uruMOu)a>Nia)ui»£ 


Table  C-3 


Percentage  Points  of  L  *  a. 
for 

Four  Samples  with  Equal  Number  of  Failures 


I  Level  of  Significance 

Failures  I 


r 

1  0.1 

0.05 

0.025 

0.01 

0.005 

4 

0.435576 

0.353429 

0.207789 

0.220114 

0.1B0040 

5 

0.519104 

0.440349 

0.374628 

0.303447 

0.259130 

6 

0.581831 

0 . 507968 

0.444570 

0 . 373675 

0.320100 

7 

0.630404 

0.561591 

0.501349 

0.432454 

0.387154 

e 

0 . 669025 

0 . 604967 

0.54B059 

0.481885 

0.437642 

3 

0.700425 

0.640692 

0.507024 

0.523811 

0.481002 

10 

0 . 726432 

0 . 670585 

0.619955 

0.559708 

0.518490 

11 

0.748315 

0.695943 

0.648116 

0 . 590729 

0.551140 

12 

0.766976 

0.717714 

0.672452 

0.617768 

0.5797B3 

13 

0.783073 

0.736600 

0.6936B1 

0.641524 

0 . 605085 

14 

0 . 797099 

0.753134 

0.712353 

0.66254B 

0.627579 

15 

0.009428 

0 . 767727 

0 . 728900 

0.681277 

0.647696 

16 

0.820340 

0.780700 

0 . 743662 

0.69B061 

0.665785 

17 

0.830009 

0.792307 

0.756909 

0.7131B4 

0.682134 

18 

0.038829 

0.802751 

0 . 768863 

0.726B78 

0.696970 

IS 

0.846717 

0.812200 

0.779702 

0 . 739335 

0.710511 

20 

0.853869 

0 . 820787 

0 . 789575 

0.750713 

0.722899 

25 

0.881525 

0.854155 

0 . 828130 

0 . 795434 

0.771824 

30 

0.900306 

0 . 877063 

0.854770 

0.B26596 

0.806130 

35 

0.914069 

0.093758 

0.874271 

0.B4953B 

0.031496 

40 

0.924449 

0 . 906464 

0.889160 

0.067128 

0.851006 

45 

0.932592 

0.916457 

0.900899 

0.8B1041 

0.866474 

50 

0.939152 

0.924522 

0.910391 

0.092319 

0.079037 

55 

0.944540 

0.931167 

0.918225 

0.901646 

0.889442 

60 

0.949065 

0.93673B 

0 . 924B00 

0.9094B7 

0 . 898200 

65 

0 . 952902 

0.941474 

0.930396 

0.916171 

0.905673 

70 

0.956201 

0.945551 

0.935218 

0.921936 

0.912125 

75 

0.959068 

0.949097 

0.939415 

0.926959 

0.917751 

BO 

0.961583 

0.952209 

0.943101 

0.931376 

0.922701 

05 

0.963807 

0.954963 

0.946365 

0.935289 

0.927089 

SO 

0.965788 

0.957417 

0.949275 

0.938780 

0.931005 

95 

0.967563 

0.959617 

0.951085 

0.941913 

0.934523 

100 

0.969163 

0.961601 

0.954241 

0.944744 

0.937704 

C  -  4 


Table  C-4 


-  P/d 

Percentage  Points  of  L  ■  A 
For 

Five  Samples  with  Equal  Number  of  Failures 


LbvbI  of  Significance 


Failures  I 


r 

!  0.1 

0.05 

0.025 

0.01 

0.005 

4 

0.351917 

0.278926 

0.222434 

0.165922 

0.133342 

5 

0.440177 

0.367031 

0.307601 

0.244799 

0.206520 

6 

0 . 508438 

0.437078 

0.378741 

0.314022 

0.273162 

7 

0.562373 

0.495334 

0.437919 

0 . 373534 

0.331883 

8 

0.605897 

0.542576 

0.487471 

0.424558 

0.383121 

9 

0.641685 

0.5B1974 

0.529368 

0.468471 

0.427B0B 

10 

0.671595 

0.615267 

0.565155 

0.506505 

0.466913 

11 

0.696946 

0.643737 

0.596023 

0.539670 

0.501304 

12 

0.718695 

0.668342 

0 . 622089 

O.56B017 

0.531719 

13 

0.737553 

0 . 689806 

0.646466 

0.594584 

0.550769 

14 

0.754056 

0 . 708687 

0.667310 

0.617513 

0.582955 

15 

0.768616 

0.725420 

0 .685863 

0.638036 

0.604694 

IS 

0.781556 

0.740349 

0 . 702478 

0.656505 

0.624327 

17 

0.793131 

0.753749 

0.717440 

0.673207 

0.642139 

10 

0.803545 

0.765841 

0.730982 

0.68B380 

0.650365 

19 

0.812964 

0.776807 

0.743294 

0.702222 

0.673205 

20 

0.821524 

0 . 786796 

0.754536 

0.714899 

0 . 686825 

25 

0.854775 

0.025814 

0.798681 

0 . 765022 

0.740956 

30 

0.877595 

0.852785 

0.829408 

0.800223 

0.779225 

35 

0.894223 

0.072533 

0.852014 

0.B262B1 

0.807683 

40 

0.906876 

0.807615 

0.869339 

0.846339 

0.829661 

45 

0.916827 

0.89950B 

0.BB3036 

0.862253 

0.847142 

50 

0.924857 

0.909127 

0.894137 

0.075183 

0.861375 

55 

0.931474 

0.917066 

0.903315 

0.885898 

0.873187 

60 

0.937020 

0.923730 

0.911029 

0.894919 

0.003146 

65 

0.941736 

0.929402 

0.917604 

0.902620 

0.891657 

70 

0.945795 

0.934290 

0.923274 

0.909270 

0.099013 

75 

0.949325 

0.938545 

0.920215 

0.915070 

0.905434 

80 

0.952423 

0.942203 

0.932558 

0.920174 

0.911088 

85 

0.955165 

0.945592 

0.936406 

0.924699 

0.916105 

90 

0.957608 

0.948542 

0.939838 

0.92B739 

0.920586 

95 

0.959798 

0.9511B9 

0.942919 

0.932368 

0.924612 

100 

0.961774 

0.953578 

0.945701 

0.935649 

0.928258 
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Table  C-5 


Six 


Percentage  Points  of  L 
for 

Samples  with  Equal  Number 


of  Failures 


Failures 


Level  of  Significance 


r 

:  o.i 

0.05 

0.025 

0.01 

0.005 

4 

0,284224 

0.220055 

0 . 171781 

0. 124020 

0.098436 

5 

0.374233 

0.307027 

0.253583 

0.138315 

0.165258 

6 

0.445831 

0.373186 

0.324356 

0.265428 

0.228002 

7 

0.503523 

0.438337 

0.384585 

0.324612 

0.286343 

B 

0.550663 

0.488808 

0.435848 

0.376272 

0.337520 

3 

0.503023 

0.530877 

0.473730 

0.421337 

0.302734 

10 

0.622033 

0.566743 

0.51757B 

0.460782 

0.422857 

11 

0.650333 

0.537643 

0 .5504B2 

0.4954B0 

0.458407 

12 

0.675287 

0.624517 

0.579307 

0.526173 

0.430073 

13 

0.636450 

0.640076 

0.604742 

0.553474 

0.510421 

14 

0.715045 

0.668830 

0.627335 

0.577B91 

0.543097 

15 

0.731503 

0.687407 

0.647526 

0.533842 

0.566900 

16 

0.746185 

0.703302 

0.665672 

0.619670 

0.587757 

17 

0.753348 

0.718902 

0.6B2063 

0.637662 

0.606745 

18 

0.771213 

0.732401 

0.696933 

0.654055 

0.624097 

13 

0.781378 

0.744672 

0.710493 

0.669050 

0.640010 

20 

0.731775 

0.755872 

0.722907 

0.6B2815 

0.654652 

25 

0.B30001 

0.733834 

0.771883 

0.737542 

0.713177 

30 

0.856388 

0.830415 

0.806202 

0.776255 

0.754865 

35 

0.875632 

0.852305 

0.831570 

0.005054 

0.7B6027 

40 

0.830426 

0.870135 

0.851077 

0.027305 

0.810186 

45 

0.302033 

0.B83756 

0.066541 

0.B45007 

0.823457 

50 

0.311428 

0.894733 

0.873093 

0.059423 

0.845185 

55 

0.313175 

0.303318 

0.BB9499 

0.871390 

0.850261 

60 

0.325676 

0.311587 

0.838253 

0.881481 

0.869304 

65 

0.331210 

0.310122 

0.305722 

0.090105 

0.B7B752 

70 

0.335377 

0.923759 

0.312171 

0.897561 

0.886928 

75 

0.340126 

0.920669 

0.917734 

0.904070 

0.894072 

B0 

0.343770 

0.332986 

0.922741 

0.303801 

0.300368 

05 

0.346336 

0.335810 

0.327127 

0.314BB7 

0.905957 

30 

0.343873 

0.340221 

0.331041 

0.919430 

0.310354 

35 

0.352453 

0.943283 

0.334557 

0.923513 

0.315446 

100 

0.354781 

0.346048 

0.937734 

0.927207 

0.919517 

Appendix  D 
Language  Syntax 


This  appendix  contains  a  brief  description  of  the  language 
syntax  that  is  supported  by  both  the  editor  and  compiler  of  the 
Statistical  Analysis  Environment  CSAE) .  The  first  section 
contains  a  description  of  the  language  statements  and  their 
various  forms.  Then  tables  of  the  reserved  words  and  language 
tokens  are  given  and,  finally,  the  language  syntax  is  defined  in 
a  set  of  eighteen  syntax  rules. 


Language  syntax  discussion: 


Environment  definition  statement: 

ENUIRONMENT; 

ENUIRONMENT  C<environment_arguments> ) ; 

If  no  argument  is  given,  then  defaults  are  used  for  all 
elements  of  the  environment. 

Multiple  arguments  are  separated  by  commas. 

Environment_arguments : 

MAXTERMS  -  n 

Set  the  maximum  number  of  terms  to  be  used  in  calculating 
the  values  of  the  CDF.  This  is  not  necessarily  the  number  of 
terms  that  uiill  be  used  .  .  .  that  number  is  determined  at  runtime, 
however,  it  cannot  be  greater  than  ’n’. 

The  default  is  MAXTERMS  -  10. 

METHOD  -  EXACT  !  ASYMTOTIC 

Include  the  program  modules  necessary  for  using  the  Exact  or 
Asymtotic  form  for  the  CDF  of  the  statistic. 

The  default  is  EXACT. 


Program  definition  statement: 

”<program_name> ”  -  CTABLE  !  LRT  >  C C< argument _list> ) 1 ; 

This  defines  the  program  to  be  created.  The  <program_name> 
is  the  file  name  of  the  executable  program  created.  This  file 
name  is  surrounded  by  double  quotes  (”).  The  <argument_list> 
defines  the  variables  for  the  specific  type  of  program  to  be 
created . 

The  TABLE  generation  program  will  create  a  table  of 
percentage  point  values  for  the  ranges  given  in  the 
<argument._list>  . 

The  LRT  program  will  accept  data  file  names  at  run-time, 
then  compute  the  test  criteria  and  the  percentage  point  necessary 
to  determine  whether  the  samples  could  have  come  from  the  same 
distribution . 


The  following  arguments  may  appear  in  the  <argument_list> 
for  a  TABLE  program: 

SAMPLES  -  <integer>  !  RANGE  C<start>,  <stop>,  C< increment> 3 ) 

The  number  of  samples  may  be  given  as  a  single  integer  or  a 
range  of  values.  A  table  will  be  generated  for  each  number  of 
samples  in  the  range. 

The  default  is  SAMPLES  -  2 . 

The  minimum  number  of  samples  is  2. 

The  default  increment  is  1 . 


FAILURES  -  <integer>  I  RANGE  C<start>,  <stop>,  C< increment> 1 ) 

The  number  of  failures  occurring  in  each  sample  may,  also, 
be  given  as  a  single  value  or  a  range.  A  line  will  be  generated 
in  each  table  for  each  number  of  failures  in  the  range. 

The  default  is  FAILURES  -  3. 

The  minimum  number  of  failures  in  each  sample  is  SAMPLES+1 . 
The  default  increment  is  1. 


ALPHA  -  <fraction>  !  C<fraction> , <fraction> , <fraction> , <f raction> ) 

The  level  of  significance  is  represented  by  the  value  alpha. 
Alpha  is  usually  in  the  range  from  0.15  to  0.005,  however,  any 
values  greater  than  zero  and  less  than  one  CO  <  alpha  <  1)  may  be 
used.  From  one  to  four  values  may  be  given  for  alpha,  separated 
by  commas.  A  column  will  be  generated  in  each  table  for  each 
value  of  alpha. 

The  default  is  ALPHA  -  0.10. 


The  following  values  may  be  included  in  the  definition  of  an 
LRT  program: 


SAMPLES  “  <integer> 

For  the  LRT  program,  the  maximum  number  of  samples  must  be 
defined.  This  only  means  that  any  number  of  samples,  up  to  the 
maximum,  can  be  used  with  the  program  at  run-time. 

The  default  is  SAMPLES  -  2. 

ALPHA  -  <fraction> 

The  level  of  significance  is  represented  by  the  value  of 
alpha.  If  no  value  is  specified  then  the  user  will  be  prompted 
to  provide  a  value  at  run-time.  The  value  may  be  in  the  rangB  0 
<  alpha  <  1 . 


Comments: 


—  <comment> 

Comments  begin  with  two  dashes  C’  —  and  are  terminated  by 
the  end  of  the  line.  The  comments  may  appear  anywhere  on  the 
line,  but  all  text  to  the  right  of  the  dashes  is  assumed  to  be 
comment . 


Table  D-l 


Language  Reserved  Words 


Complete  word 


ALPHA 

ASYMTOTIC 

ENVIRONMENT 

EXACT 

FAILURES 

LRT 

MAXTERMS 

METHOD 

RANGE 

SAMPLES 

TABLE 


Abbreviation 


AL 

AS 

EN 

EX 

FA 

LR 

MA 

ME 

RA 

SA 

TA 


Table  D-2 
Language  Tokens 


Symbol 

Description 

EOL 

End  of  line 

SIMICOL 

Semicolon 

EQUALS 

Equal  sign 

LPAREN 

Left  parenthesis 

RPAREN 

Right  parenthesis 

COMMA 

Comma 

INTEGER 

Integer  value 

FRACTION 

Fraction  value  Creal5 

FILENAME 

File  name  variable 

RESUD 

Reserved  words 

Syntax  Rules  Notation 


: : -  def inition 

<•>  non  terminal  element 

’ . ’  terminal  element 

C.l  optional  element  Czero  or  one  occurance) 

C.l  repeated  element  Cone  or  more  occurences) 

CC.13  optional  repeated  element  Czero  or  more  occurances) 
E  all  characters  except  the  new  line  character 

i  or 

C . )  precedence  determination 
<EOL>  end  of  line 

Note:  White  space  is  ignored  between  elements. 

Terminal  elements  are  surrounded  by  single  quotes. 


Syntax  Rules: 


1.  Compilation  unit>  ::-  <command> 

2.  <command>  :  :  ■*  < environment  cmd> 

i  < program  cmd>  ’ ; ’ 

!  <  comment  __stmt> 

3.  <environment  cmd>  :  :  **  ’ENUIRONMENT ’  C’C’  C<env  list>)  ’)’] 

4.  <env  list>  ::■  <env  arg>  !  <env  list>  <env  arg> 

5.  <env  arg>  ::-  nETHOO  ’-’  C ’EXACT’  i  ’ ASYI1T0TIC ' ) 

!  ’ MAXTERMS  ’  <  int> 

S.  < program  cmd>  ’ <filename> ’ ” ’  <program  def> 

7.  <program  def>  : : “  ’TABLE’  C’C’  < table  list>  ’)’  1 

!  ’ LRT ’  C’C’  < lrt  list>  ’)’  1 

8.  <table  list>  ::*  <table._arg>  !  <table_arg>  ’,’  <table  list> 

3.  <lrt  list>  ::-  <lrt  arg>  !  <lrt  arg>  ’,’  <lrt_..list> 

10.  < table  arg>  -  ’SADPLES’  ’■’  C<int>  !  Cange  def> ) 

!  ’FAILURES’  ’-’  C<int>  !  Cange  def  > ) 

!  ’ALPHA’  < alpha_ list> 


11 . 

< lrt  arg>  : : 

l 

l 

-  ’SAMPLES’  ’-’  < int> 
’ALPHA’  ’-’  <fraction> 

12. 

<alpha 

list> 

: : -  < f raction> 

!  <fraction>  ’ , 

'  <alpha  list> 

13. 

<  range 

def  > 

::-  ’RANGE’  ’ C ’ 

< int>  ’  , 

’  < int> 

C  ’  .  ’  <int>]  ’ ) 

1 


<filename>  ’Cany  non-whitespace  printing  chars  except 


< int>  ’ 1 . . 9 ’  C  £<digit>  > D  !  ’0’ 
<fraction>  C’O’D  CC<int>>D 
<digit>  : ’0. .9' 

<comment  stmt>  ’ — ’  C’CE>’D  <EDL> 


SAE  Operating  Manual 


I ntroduction 

The  Statistical  Analysis  Environment  CSAE)  is  a  programming 
environment  created  specifically  to  assist  in  performing 
reliability  analysis.  The  current  capabilities  of  the  system 
provide  for  the  analysis  of  failure  data  by  determination  of  the 
likelihood  that  several  samples  came  from  distributions  with  the 
same  mean-time-between-f ailures  CNTBF) .  The  following  sections 
describe  the  operation  of  the  SAE. 

SAE  Startup 

To  begin  operation  of  the  SAE  system,  the  current  directory 
must  contain  the  executable  files  ’sae’  and  ’sae.shell’.  The 
execution  of  the  ’sae’  program  will  print  a  header  line  and  begin 
running  the  shell  program.  Complete  operation  of  the  SAE 
system’s  ’compiler’  and  ’help’  functions  will  require  additional 
files  and  a  specific  directory  structure  Cfor  details,  see  the 
following  sections) .  The  directory  structure  and  files  are  shown 
in  Figure  E . 1 . 

The  system  is  designed  to  be  run  on  the  UNIX  (trademark  of 
Bell  Labs)  operating  system  and  was  developed  on  the  Berkley 
Uersion  4.2  UNIX.  Assuming  the  standard  percent  prompt  from  the 
UNIX  C-shell  program,  the  SAE  system  operation  begins  like  this: 


E-l 


Current 

Working  Directory 

I - 

Help 

sae 

sae .shell 
math . make 

_l _ 

— r 

Math 

help . help 

defs . h 

help . editor 

env .  h 

help .compiler 

table. h 

help .exit 

lrt  .h 

help . table 

table .c 

help . lrt 

lrt .  c 

editor . commands 

compute . c 

editor . language 

prob . c 

beta .c 
coefs . c 
bernpoly . c 

1 

Object 

compute .0 
prob.o 
beta .0 
coefs . 0 
bernpoly .0 

Figure  E.l.  SAE  Directory  Structure  and  Files 


\  sae 

Welcome  to  the  Statistical  Analysis  Environment 
SAE  > 


When  the 

prompt  ’SAE  >’ 

appears  the  system  is  ready 

to 

accept 

commands . 

In 

general , 

any  valid  UNIX 

command  may 

be 

given . 

However , 

there 

are  some 

restrictions  in 

calling  programs 

which 

conflict 

with 

SAE  program  names .  These 

anomolies  are 

i  discussed 

in  the  Following  sections. 
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SAE  Commands 


There  are  only  six  SAE  commands.  These  are,  simply: 

exit  or  quit  -  return  to  UNIX, 
editor  -  run  the  SAE  editor, 

compile  -  run  the  SAE  interpreter, 

table  -  execute  a  program  named  ’table’, 

lrt  -  execute  a  program  named  ’lrt’, 

help  or  ?  -  run  the  SAE  help  system. 

These  commands  may  bB  given  in  any  abbreviated  Form  that  does  not 
conflict  with  another  SAE  command.  For  example,  the  editor  may 
be  called  ’ed’,  ’edit’,  ’edi’,  or  ’editor’  but  not  ’e’  because 
that  could  not  be  descriminated  from  the  exit  command. 

Standard  UNIX  commands  may  be  given  in  the  normal  manner, 
except  in  cases  where  their  names  would  conflict  with  the  name  of 
an  SAE  command.  Then  the  UNIX  command  may  be  entered  with  a  back 
slash  proceeding  it.  For  example,  ’\ed’  is  the  command  necessary 
to  run  the  UNIX  editor  instead  of  the  SAE  editor. 

There  one  other  important  restriction  on  the  execution  of 
UNIX  commands.  The  current  working  directory  may  not  be  changed. 
The  execution  of  any  non-SAE  command  is  done  by  starting  a  copy 
of  the  UNIX  C-shell  program  and  executing  the  UNIX  command  within 
that  shell.  Any  changes  to  the  working  directory  are  not 
exported  to  the  SAE  shell.  This  is  necessary  because  the 
locations  of  the  ’Hath’  and  ’Help’  directories  are  important  to 
the  proper  operation  of  the  SAE  editor,  compiler  and  help 


Functions . 


SAE  Editor 


The  SAE  editor  is  a  small  screen-oriented  text  editor  for 
creating  SAE  language  programs.  The  editor  may  be  entered  uiith  a 
specific  file  to  be  edited.  Example  commands  are: 

SAE  >  ed  <-  no  file  to  edit 

SAE  >  editor  textfile  <-  ’textfile’  is  edited 
SAE  >  edit  Help/help.me  <-  ’help. me’  in  the  Help 

directory  i3  edited 

The  editor  is  limited  to  15  lines  of  text  to  edit.  A  longer  file 
mill  be  truncated  mhen  it  is  read  into  the  editor.  However,  only 
the  edited  version  mill  be  changed.  The  original  file  mill  not 
be  modified. 

A  backup  file  is  almays  created  mhen  the  edited  file  is 
saved.  The  backup  file  is  given  the  complete  name  of  the  edited 
file,  rnith  the  extension  ’.bak’  appended  to  the  end. 

Commands  mithin  the  editor  are  generally  given  by  single 
characters.  The  list  of  available  commands  mill  appear  at  the 
bottom  of  the  screen  by  pressing  the  ’H’  key  for  hBlp.  A  list  of 
reserved  mords  and  language  statement  formats  mill  appear  in  the 
same  place  in  response  to  the  ’L’  key.  Also,  a  display  of  the 
editor’s  status  may  be  seen  by  using  the  ’S’  key.  Pressing  the 

same  key  again  mill  clear  the  bottom  of  the  screen  of  any  of 

these  displays.  These  and  other  editor  commands  are  listed  in 

I 

t  Table  E.l.  Many  of  these  are  similar  to  the  commands  of  the  UNIX 

editor  ’vi’,  although  not  as  extensive. 

There  are  four  secondary  editor  commands  Csee  Table  E.2). 
These  commands  are  specifically  for  reading  and  mriting 
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Table  E.l 

Editor  Commands 

Command 

Description 

i 

begin  insert  mode 

a 

begin  append  mode 

o 

insert  a  new  line  and  begin  insert  mode 

<ESC> 

end  insert  or  append  modes 

r 

replace  a  character 

dd 

delete  a  line 

X 

delete  a  character 

V 

erase  and  redraw  the  screen 

22 

save  the  editor  contents  and  exit  to  SAE 

C 

turn  on/off  the  compiler 

H 

turn  on/off  the  help  display 

S 

turn  on/off  the  status  display 

L 

turn  on/off  the  language  help  display 
execute  secondary  editor  command 

information  to  and  from  the  editor.  The  write  command  C’:w 
<filename>’)  will  write  the  entire  contents  of  the  editor  to  the 
file  named.  If  no  file  is  given  in  the  ’write’  command,  the  file 
named  previously  Cwhen  the  editor  was  started)  will  be  used.  The 
current  contents  of  the  file  are  moved  to  a  backup  version. 

The  exit  command  C’:e  <filename>’)  performs  exactly  as  the 
write  command  and  then  exits  to  the  SAE  shell.  The  quit  command 
C ’ :q ’ )  leaves  the  editor  without  saving  the  contents. 

The  last  secondary  command  for  the  editor  is  the  read 
command  C’:r  <f ilename> ’ ) .  This  will  read  the  contents  of  the 
given  file  into  the  editor  at  the  line  following  the  current 
cursor  position. 

The  compiler  can  be  used  with  the  editor  to  advise  the  user 
when  proper  commands  have  been  created.  Upon  entering  the 
editor,  the  compiler  is  turned  off.  To  3tart  the  compiler,  press 
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Table  E.B 


Secondary  Editor  Commands 


Command  Description 


ui  uinte  edited  text  to  a  file 

r  read  text  From  a  file  to  editor 

q  quit  the  editor  without  saving  contents 

e  save  the  editor  contents  and  exit  to  SAE 


the  ’C’.  On  the  right  side  of  the  screen,  a  single  character 
will  give  the  status  of  each  line  of  text.  There  are  three 
possible  values;  a  period  ’ . ’  indicates  a  valid  language 
statement,  a  dash  indicates  a  partial  statement  with  no 

errors,  and  the  letter  ’E’  indicates  an  error.  If  the  status 
display  is  turned  on  Cpress  ’S’)  the  error  message  will  appear  at 
the  bottom  of  the  screen  for  the  line  at  the  current  cursor 
position.  IF  the  ’C’  is  pressed  again,  the  compiler  will  be 
turned  off  and  the  right  side  of  the  screen  will  be  blanked.  The 
compiler  error  messages  and  status  characters  are  summarized  in 
Table  E.3. 

IF  the  compiler  is  on  at  the  time  the  editor  contents  are 
written  to  a  File  (with  the  ’:e’,  ’:w'  or  ’Z2’  commands)  then  the 
program  will  be  executed  as  if  the  file  were  compiled  outside  the 
editor.  If  the  compiler  is  turned  off,  the  file  will  only  be 


Table  E.3 

Compiler  Error  Messages 

Not  compiled 

UALID 

UALID 

_ 

Incomplete  line 

ERROR 

- 

Non-speciF ic 

ERROR 

- 

Invalid  character 

ERROR 

- 

Expected  Filename  or  ENUIRONMENT 

ERROR 

- 

Expected  semicolon  or  leFt  paren 

ERROR 

- 

Expected  comma  or  right  paren 

ERROR 

- 

Expected  semicolon  at  end  oF  command 

ERROR 

- 

Expected  argument  Csee  language  help) 

ERROR 

- 

Expected  equal  sign 

ERROR 

- 

Expected  integer 

ERROR 

- 

Expected  TABLE  or  LRT 

ERROR 

- 

Expected  Fraction 

ERROR 

- 

Expected  integer  or  RANGE 

ERROR 

- 

Expected  leFt  paren 

ERROR 

- 

Expected  right  paren 

ERROR 

- 

Expected  comma 

ERROR 

- 

Invalid  integer  or  Fraction 

ERROR 

- 

Invalid  File  name 

ERROR 

Invalid  word  in  source 
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text  File  by  giving  the  command  ’’compile  <Filename>”.  The  File 
will  be  interpreted  exactly  the  same  as  iF  it  were  in  the  editor. 
Ualid  statements  will  be  executed  and  invalid  statements  will 
generate  error  messages  (see  Table  E.3).  The  contents  oF  the 
source  File  will  be  written  back  to  the  standard  output  device 
with  error  messages  Following  the  line  in  which  they  occurred. 
The  File  output  will  be  Followed  by  a  summary  stating  the  number 
oF  lines  read  and  the  number  oF  errors  that  were  Found.  IF  there 
are  no  errors,  the  statements  will  be  executed. 

The  result  oF  execution  will  be  a  program.  There  are  two 
types  oF  programs  that  may  be  generated  by  the  system.  First,  a 
’table’  program  can  be  used  to  generate  a  table  oF  percentage 
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point  values  for  applying  the  statistic  developed  in  this 
dissertation.  This  table  may  be  used  to  evaluate  a  number  of 
samples  to  determine  if  they  may  have  come  from  the  same 
distribution.  The  table  values  are  only  for  cases  where  there 
are  exactly  the  same  number  of  failures  recorded  for  each  sample. 
A  single  percentage  point  will  be  computed  by  the  program  for 
each  specific  case  of  three  values;  the  number  of  samples,  the 
number  of  failures  in  each  sample,  and  the  level  of  significance 
(alpha} . 

The  second  type  of  program  Clrt}  will  accept  faliure  date 
and  compute  the  specific  percentage  point  needed.  Then  the 
program  will  make  a  statement  on  whether  the  samples  may  have 
come  from  the  same  distribution,  based  on  the  given  level  of 
significance.  This  program  will  operate  interactively,  accepting 
failure  data  from  disk-files  and  prompting  the  user  for 
information  that  is  not  provided. 

Specific  information  on  the  execution  of  the  ’lrt’  and 
’table’  programs  is  provided  in  the  following  sections.  Here  we 
are  concerned  with  the  creation  of  the  programs  by  the  compiler. 
The  compiler  statements  provide  for  thB  input  of  value  defaults 
and  ranges  that  determine  the  operating  features  of  the  resulting 
programs.  There  are  only  three  types  of  statements  that  are 
acceptable  to  the  compiler;  comment  statements,  environment 
statements  and  program  statements.  The  general  forms  for  these 
statements  are  given  in  Table  E . H . 

Comment  statements  may  appear  at  any  place  in  the  program. 
They  begin  with  two  consecutive  dashes  ’ — ’  and  are  terminated  by 
the  end  of  the  line.  Comment  lines  are  ignored  by  the  compiler 
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Table  E.4 


SAE  Compiler  Statements 


—  A  comment  <CR> 

Comments  are  terminated  by  the  end  of  the 
line  and  may  appear  at  any  point  in  the  line, 

environment  Cmaxterms  -  n,  method  -  (exact ! asymtl ) ; 

Environment  statement  may  appear  only  once 
in  the  program.  Parentheses  are  necessary 
if  either  argument  is  present.  ’n’  must 
be  a  positive  integer. 

Defaults:  maxterms  ■  10,  method  -  exact. 


’file-name”  “  table  (samples  -  Cn  I  rangeCnl , nB, n3)5 , 

failures  "  Cn  !  rangeCnl , nB, n3)l , 
alpha  -  rl,  r B,  r3,  r4); 

Table  program  definition  may  contain  three 
arguments.  ’n’  must  be  a  positive  integer. 

’r’  must  be  a  positive  fraction  less  than 
one.  ’nl’  is  the  starting  value.  ’nB’  is 
the  ending  value.  *n3’  is  the  increment. 
Defaults:  samples  -  2,  failures  -  S, 

alpha  -  0.10,  n3  -  1 . 


’’file-name”  ■  lrt  (samples  •  n,  alpha  -  r); 

Lrt  program  definition  may  contain  two 
arguments.  ’n’  must  be  a  positive  integer 
’r’  must  be  a  positive  fraction  less  than 
one . 

Defaults:  samples  **  B,  alpha  “  0.10. 


and  are  not  passed  on  to  the  resulting  program  in  any  way. 

Environment  statements  begin  with  the  reserved  word 
’environment’  and  define  two  important  features  of  the  ’lrt'  and 
’table’  program.  The  first  feature  is  the  method  used  to  compute 
the  CDF  of  the  test  criteria,  either  exactly  or  asymtotical ly . 
The  mathematical  implications  will  not  be  discussed  here. 
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However,  there  are  some  simple  considerations.  IF  there  are  only 
two  samples  to  be  compared,  the  exact  method  is  calculated 
slightly  Faster,  but,  there  is  no  signiFicant  diFFerence  in  the 
values  produced  by  either  method.  IF  there  are  more  than  two 
samples  and  the  number  oF  Failures  in  each  sample  is  large 
(greater  than  50),  the  asymtotic  method  is  more  eFFicient. 

The  second  Feature  determined  by  the  environment  statement 
is  the  maximum  number  oF  terms  used  in  the  calculations  For 
either  method.  For  only  two  samples,  this  number  is  not  used  in 
the  calculations.  However,  Far  more  than  two  samples  the  number 
oF  terms  necessary  For  the  same  accuracy  is  inversely 
proportional  to  the  number  oF  Failures  in  each  sample.  That  is, 
more  terms  are  necessary  when  Fewer  Failures  have  occurred  in 
each  sample.  More  than  twenty  terms  are  necessary  For  the  most 
general  use  Ce.g.  generating  tables  with  a  wide  range  oF  values). 
Ten  terms  are  suFFicient  iF  the  number  oF  Failures  remains  above 
about  40  in  each  sample.  In  general,  the  asymtotic  method 
requires  Fewer  terms,  usually  about  halF,  For  the  same  accuracy 
as  the  exact  method. 

The  program  statements  are  used  to  create  ’table’  and  ’lrt’ 
programs.  The  statement  is  an  assignment  oF  a  program 
description  to  a  File  name  (see  Table  E.4).  The  program  is 
identiFied  by  the  reserved  words  ’table’  and  ’lrt’  and  the 
deFinition  is  completed  by  the  speciFication  oF  the  argument 
values;  samples  (the  number  oF  samples  to  be  compared),  Failures 
(the  number  oF  Failures  in  each  sample)  and  alpha  (the  level  oF 
significance  For  the  percentage  point). 
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Table  E.5 

SAE  Compiler  Reserved 

Reserved  Word 

Words 

Abbreviation 

ALPHA 

AL 

ASYMTOTIC 

AS 

ENUIRONMENT 

EN 

EXACT 

EX 

FAILURES 

FA 

LRT 

LR 

MAXTERMS 

MA 

METHOD 

ME 

RANGE 

RA 

SAMPLES 

SA 

TABLE 

TA 

The  Failures’  argument  is  not  allowed  in  the  definition  of 
an  ’lrt’  program  because  the  number  of  failures  is  taken  directly 
From  the  data  files  that  are  read  during  program  execution. 
Also,  there  can  only  be  one  value  assigned  to  ’samples’  and 
’alpha’  Cthe  level  of  significance). 

The  value  of  ’samples’  in  the  ’lrt’  program  is  not  very 
important.  It  is  only  the  maximum  number  of  samples  that  may  be 
processed  by  the  program.  For  example,  if  the  maximum  is  set  to 
10,  any  number  of  samples  CFrom  2  to  10)  may  be  compared  by  the 
program.  The  value  of  ’alpha’  is,  also,  not  absolutely  necessary 
to  the  statement.  If  ’alpha’  is  not  set  in  the  ’lrt’  program 
definition,  the  program  will  prompt  the  user  for  a  value  during 
operation.  (lore  details  of  the  ’lrt’  program’s  operation  are 
given  in  a  later  section. 

In  the  ’table’  program  definition,  each  of  the  arguments  may 
be  assigned  more  than  one  value.  The  ’range’  can  be  specified 
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Far  the  ’samples’  and  ’Failures’  arguments  by  speciFing  the 
values  aF  initial-value,  maximum-value,  and  incremental-value,  as 
shown  in  Table  E.4.  The  level  oF  signiFicance  C’ alpha’)  may  have 
up  to  Four  values  (separated  by  commas).  A  table  will  be 
generated  by  the  program  For  each  distinct  value  oF  ’samples’. 
There  will  be  a  column  in  each  table  For  each  value  oF  ’alpha’ 
and  a  row  For  each  value  oF  ’Failures’. 

It  is  important  to  remember  that  the  environment  may  be 
deFined  only  once  in  every  program.  However,  a  valid  SAE  program 
may  contain  many  ’table’  and  ’lrt’  deFinition  statements. 

Abbreviations  may  be  used  For  any  oF  the  reserved  words 
listed  in  Table  E.5.  The  compiler  does  not  descriminate  between 
capital  and  small  letters  in  reserved  words.  So,  ’Exact’  would 
be  accepted  as  well  as  ’eXaCt’  For  the  same  word.  This  is  not 
true  Far  File  names  given  within  the  required  quotes.  Any 
printing  characters,  except  blanks,  may  legally  appear  in  a  File 
name.  It  may  be  helpFul  to  reed  the  next  two  sections  on  the 
operation  oF  the  ’table’  and  ’lrt’  programs  beFore  beginning  to 
use  the  compiler. 

SAE  Table 

The  SAE  table  command  will  execute  a  program  named  ’table’. 
In  general,  this  is  not  very  useFul ,  because  most  table 
generation  programs  created  by  using  the  SAE  will  not  be  named 
’table’.  The  command  is  included  more  to  provide  easy  access  to 
a  ’help’  inFormation  File  on  the  use  oF  the  table  programs 


created  by  the  compiler  and  their  deFault  argument  values. 


Table  generation  programs  will  execute  with  no  user  inputs 
and  generate  the  tables  specified  in  the  ’table’  definition 
statement  used  to  create  the  program.  The  table  will  appear  at 
the  standard  UNIX  output  which  may  be  re-directed  using  standard 
C-shell  features  Ce.g.  ’> ’  and  ’>>’). 

SAE  lrt 

The  SAE  lrt  command  is,  mostly,  Just  for  reference  to  an 
appropriate  ’help’  file.  Like  the  table  command,  a  file  named 
’lrt’  will  be  executed.  However,  unlike  the  table  programs,  user 
input  is  usually  necessary.  There  are  three  important  features 
of  ’lrt’  programs  for  the  user  to  know.  First,  if  the  level  of 
significance  was  set  when  the  program  was  created,  then  it  cannot 
be  changed  while  the  program  is  running.  If  it  was  omitted  in 
the  definition  statement,  the  program  will  prompt  the  user  for  a 
value  during  each  execution.  There  is  no  default  value  for 
’ alpha ’ . 

Second,  the  names  of  the  data  files  must  be  provided  to  the 
program.  There  must  be  one  data  file  for  each  sample.  The  names 
may  be  given  in  the  calling  statement  for  the  program  or  the 
program  will  prompt  the  user.  For  example,  ’lrt  datal  dataE’, 
’lrt  data3  dataE  datal’  and  ’lrt’  are  all  valid  program  calls. 
Only  in  the  last  case  will  the  program  prompt  the  user  for  data 
files . 

The  third  important  point  is  the  organization  of  the  data 
files.  Each  data  file  is  expected  to  contain  a  list  of  failure 
times  for  the  sample.  These  may  appear  in  any  acceptable  UNIX 
format  for  real  numbers  Ce.g.  1.2,  0.5,  1.3E2,  etc.).  There  is, 


however,  one  more  value  that  is  needed;  the  sample  size.  That 
is,  the  number  of  items  under  test  in  the  sample,  not  the  number 
of  failures  (which  can  be  calculated  from  the  size  of  the  data 
file).  The  sample  size  is  expected  to  be  an  integer  value  given 
as  the  first  entry  in  the  data  file.  If  this  is  not  true  for  the 
data  files  to  be  used,  the  program  can  prompt  the  user.  The  file 
name  must  be  prefixed  with  a  dash  (’-’)  to  tell  the  program  that 
the  sample  size  is  not  included  in  the  data  file.  For  example, 
the  command  ’lrt  -datal  dataS  -data3 ’  would  indicate  that  only 
the  second  data  file  contains  the  sample  size  within  the  file. 
The  user  would  be  prompted  to  supply  the  sample  sizes  for  the 
first  and  third  files  when  they  are  read. 

The  ’lrt’  program  outputs  the  computed  value  for  the  test 
criteria,  the  percentage  point  at  the  given  level  of 
significance,  and  a  statement  indicating  the  decision  indicated 
by  the  values  computed.  As  with  the  ’table’  program,  these 
values  are  sent  to  the  UNIX  standard  output  device. 

SAE  Help 

The  SAE  help  command  is  provided  to  allow  the  user  easy 
access  to  an  organized  system  of  information  files.  The  command 
is  given  as  ’help  <argument> ’  where  <argument>  is  the  name  of  the 
subject  disired.  The  question  mark  (?)  may  be  used  in  place  of 
the  command  name  ’help’.  Examples  of  help  commands  are: 

SAE  >  he  exit  <-  exit  information 

SAE  >  ?  <-  general  help  information 

SAE  >  ?  editor .commands  <-  list  ’ Help/editor . commands ’ 
SAE  >  help  c  <-  compiler  information 


The  arguments  may  be  SAE  command  names  or  specific  file 
names  in  the  Help  directory.  SAE  command  names  may  be  given  in 
the  same  manner  as  would  be  accepted  by  the  SAE  shell  parser. 
For  example,  ’h  ed ’  would  get  information  about  the  SAE  editor 
and  ’h  c’  would  provide  the  compiler's  description.  If  the 
argument  is  not  a  valid  SAE  command,  the  help  program  searches 
for  a  file  with  the  name  ’Help/xxx‘  where  ’ xxx ’  was  the  argument 
given  in  the  command,  as  in  'help  xxx’. 

All  help-information  files  are  expected  to  be  found  in  a 
directory  named  ’Help’  in  the  current  working  directory.  Files 
are  then  named  in  two  parts.  First,  the  namB  of  the  program  that 
is  intended  to  read  them  is  given.  This  is  followed  by  a  period 
and  some  indication  of  the  specific  information  contained  in  the 
file.  For  example,  a  file  with  information  about  the  SAE  editor 
for  use  with  the  system  help  command  would  be  named 
’help .editor ’ .  So,  a  file  with  editor  command  information  for 
use  by  the  editor  would  be  named  ’ editor . cmds ’ . 

If  there  are  no  arguments  given  in  the  help  command,  then 
the  first  lines  of  all  files  referenced  by  the  UNIX  path  name 
’Help/help.*’  are  displayed.  These  files  are  intended  to  be  used 
for  describing  SAE  commands  and  the  first  line  contains  the  name 
of  the  command  and  an  indication  of  its  usage.  If  more  files  are 
added  to  the  Help  directory,  they  should  follow  this  format. 

Expansion  of  the  SAE  System 

The  SAE  system  is  designed  to  be  extensible  is  several  ways. 
This  allows  the  user  a  choice  when  new  tools  or  Features  are 


needed . 


The  shell  of  the  environment  allows  any  UNIX  programs  to  be 
executed,  even  command  lists.  This  allows  the  user  to  create 
programs  outside  the  SAE  environment  using  any  tools  that  are 
available  within  the  UNIX  system. 

Programs  may  also  be  made  an  explicit  part  of  the  SAE  by 
modifying  the  SAE-shell  programs  to  properly  handle  the  program 
name  according  to  the  SAE  conventions.  This  will  not  restrict 
the  use  of  the  program  to  the  SAE,  but  only  make  calling  the 
program  easier  Conly  enough  of  the  program  name  to  make  it  unique 
need  be  entered  for  SAE  commands) . 

The  final  method  for  adding  a  program  to  the  SAE  involves 
modification  of  the  programs  that  are  linked  together  and  loaded 
as  the  SAE,  such  as  the  editor  and  the  shell,  itself.  This  will 
increase  the  speed  of  execution  but,  obviously,  increase  the  size 
of  the  SAE  program.  For  small  functions  that  may  be  used  often, 
this  proceedure  should  be  considered.  Another  drawback  to  this 
method  is  that  program  cannot  be  used  when  the  SAE  is  not  loaded. 

Limitations  of  the  SAE  Environment 

There  are  only  a  few  limitations  within  the  SAE  environment. 
The  most  important  is  that  the  current  working  directory  cannot 
be  changed.  This  was  done  to  make  it  easier  to  find  the  hBlp- 
information  files  which  are  stored  in  a  sub-directory.  This 
means  that  each  directory  in  which  the  SAE  is  used  can  have  it’s 
own  help-information,  tailored  to  the  needs  of  the  user.  Other 
methods  could  have  been  used  but  this  was  simple  and  does  not 
seriously  restrict  the  user  while  giving  the  ability  to  modify 
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help  Files. 


Another  limitation  of  the  SAE  is  also  one  of  its  strengths. 
That  is,  the  ability  of  the  programmers  to  modify  almost 
everything  about  the  environment  can  lead  to  destruction  of  the 
system.  The  environment’s  integrity  is  dependent  upon  the  users 
adhering  to  good  programming  practices  and  obeying  common  sense 
regarding  the  protection  of  valuable  programs  and  information. 

SAE  Programs 

The  next  appendix  of  this  dissertation  contains  listings  of 
the  programs  that  make  up  the  SAE.  Copies  of  these  programs  may 
also  be  obtained  from  the  author  or  by  contacting  the  AFIT  School 
of  Engineering,  Uright-Patterson  Air  Force  Base,  Dayton,  Ohio, 
45433. 

Sample  Operation  of  the  SAE 

The  remaining  pages  of  this  appendix  contain  an  example  of 
the  use  of  the  SAE  system.  As  mentioned  in  the  First  section 
’SAE  Startup’,  the  first  command  to  the  UNIX  system  is  ’sae’  to 
begin  operation  of  the  SAE  shell  program.  Comments  to  explain 
the  commands  being  used  are  boxed  to  keep  them  seperate  from  the 
normal  output.  All  user  commands  are  underlined  to  make  the 
system  responses  obvious. 

It  should  also  be  mentioned  that  this  example  does  not 
contain  a  demonstration  oF  the  SAE  editor.  It  was  not  practical 
to  show  the  editor  displays  in  this  type  of  listing.  Instead, 
the  SAE  language  program  was  created  beforehand,  using  another 
UNIX  system  editor.  Operation  of  the  editor  is  explained  in 
detail  in  other  sections  of  this  appendix  and  the  displays  are 


Script  started  on  Tue  Nov  10  11:40:11  1SB6 

\  gas  + - + 

!  starting  the  SAE  ! 


Welcome  to  the  Statistical  Analysis  Environment  -  Uersion  l.B 

SAE  >  h  + - * 

SAE  Help  command,  Uersion  E.O  !  SAE  help  command  called  I 

I  with  no  argument  ! 

Command  Description  + - + 


compile  SAE  Language  Compiler..  ’compile  CfileD’ 

editor  SAE  Syntatical  Editor..  ’edit  CFilel’ 

exit  SAE  Exit  command.,  ’exit’  or  ’quit’ 

help  Help  information  is  displayed..  ’help  Ccmd] ’ 

table  ’table’  is  a  compiler  program  statement 

SAE  >  ?_h  + - + 

SAE  Help  command,  Uersion  E.O  !  information  on  ’help’  i 


help  Help  information  is  displayed..  ’help  Ccmdl ’ 


The  ’help’  command  selectively  displays  the  information  in  e 
’Help’  subdirectory  of  the  current  working  directory. 

With  no  specified  ’command’,  the  first  line  of  each  help-information 
file  is  displayed.  This  should  give  a  list  of  commands  and  simple 
descriptions . 

If  a  ’command’  name  is  given,  then  the  entire  file  named  ’ help . command ’ 
is  displayed.  For  example  ’help  help’  will  display  this  file. 

Any  unique  abbrevation  of  the  command  name  may  be  given. 

The  back-slash  ’\’  may  be  used  to  escape  from  this  shell’s  parser  and 
execute  a  UNIX  command  with  the  same  name  Ceg.  the  editor  ’ex’  can 
be  run  by  using  ’\ex’). 


SAE  >  help  compi  + - + 

SAE  Help  command,  Uersion  E.O  I  information  on  ’compile’  I 


compile  SAE  Language  Compiler..  ’compile  CFilel’ 


Run  the  compiler  on  a  source  file. 

Compiler  will  echo  the  lines  of  the  file  and  indicate  any  errors 
after  each  line. 

A  summary  of  the  number  of  lines  compiled  and  errors  found  will  be 
printed  at  the  end  of  the  file  listing. 

The  commands  in  the  file  will  be  executed  if  there  are  no  errors. 


I  UNIX  commands  may  be  called...  ! 

I  e.g.  ’man’,  ’Is’,  any  aliases  or  script  commands,  etc.  ! 


SAE  >  Is  -R 


Functions  Help 

Nath 

Source  b720. 

1  b720 . 2 

b720 . 3  dl 

d2 

d3  datal  data2 

direct  math. 

make  sae 

sae. shell  tablelO.src  testlSe 

testl5e . src 

Help: 

editor . commands 

i  editor . reserved 

help . compiler 

help .editor 

help . editor . commands 

help . exit 

help . help 

help . lrt 

help . table 

(lath : 

Object  Output  asymt.100 

bernpoly . c 

beta.c 

coefs.c  compute. c  defs.h 

env .  h 

env . sav 

lrt.c  lrt.t 

i  makefile 

prob .c 

table . c 

table  .h 

Math/Ob ject : 

bernpoly . o 

beta.o  coefs.o  compute.o 

prob .o 

Source: 

Object 

Uersion 

cp .compile .c 

cp . err . c 

cp. token. c 

ed .cmd .c 

ed .disp .c 

ed .functions .c 

ed .help .c 

ed .misc .c 

ed. table. c 

makefile 

sae .compile  .c 

sae .edit .c 

sae  .h 

sae .help .c 

sae . main . c 

sae . parser . c 

sae .shell .c 

status .h 

tokens . h 

window . h 

Source/Ob ject : 

cp . compile . o 

cp.err .o 

cp . token . o 

ed . cmd . o 

ed . disp . o 

ed .functions . o 

ed .help .o 

ed . misc . o 

ed . motion  .  o 

ed . table  .o 

sae . compile . o 

sae . edit . o 

sae . help . o 

sae .parser .o 

Source/Uersion : 
sae .shell 


!  an  SAE  program  has  been  created  containing  a  comment 
1  and  two  statements  defining  a  program  for  comparing 
!  up  to  ten  samples 


£ 


SAE  >  c  testl5e.src 


SAE  Compiler,  Uersion  0.2 
Compiling  testlSe.src: 


compile  the  SAE  program  to  ! 
create  the  executable  UNIX  I 
program  ’testl5e’  I 


1  --  Test  program 

2  environment  Cmaxterms  “  15,  method  -  exact); 

3  ”testl5e”  -  lrt  Csamples  -  10); 

Summary:  3  lines  0  error 


SAE  >  cat  datal  data2 
17 
0.7 
1 .6 
3.0 
5.1 


I  data  Files  From  example  ! 
!  given  in  Chapter  5  ! 


SAE  >  testl5e  datal  dati 


!  run  the  program  on  the  data 


Likelihood  Ratio  Test  Program  Uersion  2.0 

Exact  Method  For  calculating  test  criteria 
Maximum  number  oF  terms  used:  15 
10  Samples  may  be  given 

Level  oF  signiFidance  will  be  requested  later 
Summary : 

Test  criteria  From  data  Files  -  0.934432 
Enter  desired  level  oF  signiFicance :  0 ■ 1 

Probability  that  LRT  value  is  less  than  or  equal  to  0.934432 

when  the  sample  populations  have  the  same  Failure  rate  -  0.475 

ReFerence  point  0  0.100  SigniFicance  -  0.590004 
ThereFore: 

. .  Samples  MAY  have  come  From  populations  with  the  same 
Failure  distributions. 


!  Results  indicate  that  at  that  level  oF  signiFicance  the 
I  samples  may  have  the  same  MTBF’s.  Also,  notice  the 
!  probability  value  oF  0.475.  This  is  the  level  oF 
!  signiFicance  at  which  the  test  would  have  switched  its 
!  indicated  result.  Sometimes  this  is  called  the 
I  ’p-value’  For  the  statistic  and  this  data. 


The 


I  Now,  uie  mill  test  a  more  realistic  set  of  data. 

!  data  files  named  ’b720’  contain  Failure  data  from 
I  Boeing  720  airconditioning  systems  compiled  during  a  ! 
i  study  by  Proschan  in  1963.  Since,  all  three  samples  I 

I  are  from  the  same  population  of  systems,  we  would  ! 

!  expect  that  they  have  the  same  failure  distribution.  I 

t  : 

!  Note  that  there  are  different  numbers  of  failures  and  ! 

!  sample  sizes  in  these  data  files.  ! 

+ - + 

SAE  >  cat  b720 . * 

27  sample  size 

Failure  times 

1  4  11  16  IB  18  24  31  39  46  51  54  63  6B 
23  sample  size 
Failure  times 

7  9  14  10  IB  22  31  34  34  36  37  57  SB  62  65 
29  sample  size 
Failure  times 

10  14  20  23  24  25  26  29  44  44  49  56  60  61 


SAE  >  testlSe 

Likelihood  Ratio  Test  Program  Uersion  2.0 

Exact  Method  for  calculating  test  criteria 
Maximum  number  of  terms  used:  15 
10  Samples  may  be  given 

Level  of  significance  will  be  requested  later 
Enter  file  name  of  first  sample:  b72Q ■ 1 
Enter  file  name  of  next  sample:  b720 . 2 
Enter  file  name  of  next  sample:  b720 .3 
Enter  file  name  of  next  sample: 

Summary : 

Test  criteria  from  data  files  -  0.95B349 
Enter  desired  level  of  significance:  0 ■ 5 

Probability  that  LRT  value  is  less  than  or  equal  to  0.95B349 
when  the  sample  populations  have  the  same  failure  rate  -  0. 

Reference  point  B  0.500  Significance  -  0.95207 
Therefore: 

. .  Samples  MAY  have  come  from  populations  with  the  same 
failure  distributions. 


SAE  >  test 15e  b720 ■ 1  b720.5  b720.3 


Likelihood  Ratio  Test  Program  Uersion  2.0 

Exact  Method  for  calculating  test  criteria 
Maximum  number  of  terms  used:  IS 
10  Samples  may  be  given 

Level  of  significance  will  be  requested  later 
Summary : 

Test  criteria  from  data  files  -  0.959349 
Enter  desired  level  of  significance:  0 . 6 

Probability  that  LRT  value  is  less  than  or  equal  to  0.359349 

when  the  sample  populations  have  the  same  failure  rate  ■  0.543 

Reference  point  3  0.500  Significance  -  0.364443 
Therefore: 

. .  Samples  CANNOT  be  assumed  to  have  come  from  populations 
with  the  same  failure  distributions 

+ - + 

!  The  test  was  run  twice,  at  different  significance  i 

i  levels,  only  to  indicate  that  the  results  can  be  forced  ! 

!  to  accept  or  reject  the  hypothesis  by  level  selected.  ! 


+ - + 

- - + 

!  The  last  portion  of  this  demonstration  is  the  use  of  ! 

!  the  table  generating  feature  of  the  system.  For  I 

I  simple  cases,  where  the  sample  size  and  number  of  i 


!  failures  are  equal,  tables  can  be  useful  for  applying 
!  the  test  where  the  computer  program  cannot  be  run . 


SAE  >  cat  tablelO.src 

—  Test  program 

en  Cmaxterms  “  10,  method  “  asymtotic); 

’’tablelO”  -  ta 

(samples  -  rangeC2 , 4 , 1 ) , 
failures  -  rangeC 3 , 10 , 1 ) , 
alpha  -  C0.1,  0.05,  0.025:0; 

SAE  >  tablelO 

SAE  Table  Generation  Program  Uersion  2.0 

Asymtotic  Method  is  used  in  calculating  the  test  criteria 
10  Terms  used 
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Percentage 

points  of 

L  “  lambda  to 

the  power  of 

P  “  2 
R  -  2 

samples 
x  C number 

of  failures  in 

each  sample) 

Failures 

Level  of 
0.100 

Significance 

0.050 

0.025 

per  sample 

3 

0.615765 

0.504265 

0.411661 

4 

0.69906B 

0.602382 

0.516920 

5 

0.753169 

0.669122 

0.592130 

e 

0 . 790948 

0.717051 

0.647779 

7 

0.81B767 

0.753009 

0.690372 

B 

0.B400B5 

0.780935 

0.723924 

9 

0.856933 

0.803227 

0.750995 

10 

0.870579 

0.821425 

0.773278 

Percentage 

points  of 

L  -  lambda  to 

the  power  of 

P  -  3 
R  -  3 

samples 
x  (number 

of  failures  in 

each  sample) 

Failures 

Level  of 
0.100 

Significance 

0.050 

0.025 

per  sample 

4 

0.545448 

0.455703 

0.3B2178 

5 

0.618568 

0.S3597S 

0 . 465266 

6 

0.671892 

0.596504 

0.530110 

7 

0.712338 

0.64345B 

0.5B1593 

B 

0.744004 

0.680819 

0.623244 

9 

0.769443 

0.711198 

0.657537 

10 

0.790312 

0.736358 

0.686216 

Percentage 

points  of 

L  “  lambda  to 

the  power  of 

p  -  4 
R  -  4 

samples 
x  (number 

of  failures  in 

each  sample) 

Failures 

Level  of 
0.100 

Significance 

0.050 

0.025 

per  sample 

5 

0.520677 

0.443047 

0.379236 

B 

0.582797 

0.509675 

0.447580 

7 

0.631036 

0.562729 

0.503401 

B 

0.669460 

0.605760 

0.549511 

9 

0.700735 

0.641265 

0.588086 

10 

0.726662 

0.671012 

0.620753 

SAE  >  exit 
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Appendix  F 
Program  Listings 


This  appendix  contains  the  program  listings  for  the  SAE 
system.  The  first  pages  contain  a  summary  of  the  program  files 
and  their  contents.  Next,  Figures  F.l  and  F.2  show  the 
relationships  among  the  SAE  files  and  the  hath  files 
respectively.  Finally,  the  program  listings  are  presented. 


SAE  Programs  List 


Fils  Name 


makefile 
sae .  h 
status .  h 
tokens .  h 
window . h 
sae .main .c 
sae . shell . c 
sae . help . c 
sae . edit .  c 
sae .compile .c 

cp. token. c 


cp .compile .c 


cp . err . c 
sae .parser .c 

ed .disp .c 


ed . help . c 


ed . table . c 


Con tents/ Modules 


UNIX  makefile  for  the  SAE  programs 

definitions  common  to  all  SAE  programs 

definitions  of  compiler  status  values 

definitions  of  language  reserved  words  and  tokens 

definitions  of  direct  screen  manipulation  functions 

main  (sae) 

main  (sae. shell) 

help 

edit 

compile 

cpline 

token 

ckword 

readnumber 

readf ilename 

cparse 

setoutputon 

setoutputof f 

errtext 

parser 

parseck 

initdisplay 

readydisplay 

refreshdisp 

switchdisplay 

ckdisplay 

updated! splay 

switchcf lag 

inithelp 

switchhelp 

switchlang 

readhelp 

ref reshhelp 

ckhelp 

cklocy 

cklocx 

length 

tabnewline 

tabdeleteline 

lastline 

inittable 

writetext 

readtext 

tableread 

tablewrite 

compileline 

compileall 

clearcompi le 


ed.cmd.c  cmdcmd 

cmdinit 
cmdprint 

Bd.misc.c  motion 

getkey 
motioninit 
mvcursor 
ederror 

ed .Functions .c  edappend 
edinsert 
edinsertln 
eddelline 
eddelchar 
edreplacechar 
edwrite 
sdrsad 
Bdrsdrau 
sdinit 
edexit 
Bdcommand 


Math  Programs  List  CAsymtotic  and  Exact  Computations) 
File  Name  Contfints/Moduiss 


math. make  UNIX  maksfile  For  thB  math  Functions 

deFs.h  deFinitions  common  to  all  programs 

env.h  deFinitions  modiFiBd  by  ’environment ’  command 

table. h  deFinitions  modiFied  For  ’table’  program 

lrt.h  deFinitions  modiFied  For  ’ lrt ’  program 

lrt.c  main  Clrt) 

table. c  main  Ctable,  asymt,  exact) 

compute. c  readFile 

computelrt 

computepct 

prob.c  neuton 

prob 

beta.c  betap 

ibeta 
beta 
loggam 

bernpoly.c  bernpoly 

b 

com 

coeFs.c  modR 

mods 

createCjr 

Queue 


#•* 

#**  Statistical  Analysis  Environment 

#*»  File:  makefile 

Original:  BO  September  19B5  -  K  N  Cole 

#»*  Current:  15  October  1986  -  K  N  Cole 

#** 

#**  Contains  UNIX  make  instructions  for  SAE 


** 

OBJECTS  -  Object/sae .edit .o  Object /sae . help . o  \ 


Ob ject/sae . parser .o  Object/ed .functions. o  \ 

Object/ed .help .o  Object/ed .misc .o  \ 

Object/ed .cmd .o  Object/ed .disp .o  \ 

Object/ed . table . o  Object/sae .compile .o  \ 

Object/cp . token .o  Object/cp . compile . o  Object/cp. err. o 

CFLAGS  -  -c 

sae. shell:  sae. shell. c  SCOBJECTS) 

cc  -o  sae. shell  sae. shell. c  SCOBJECTS)  -lcurses  -ltermlib 
mv  ../sae. shell  Uersion 
mv  sae .shell  .  . 

sae:  sae. main. c 

cc  -o  sae  sae. main. c  -lcurses  -ltermlib 

Object/ed .misc .o:  ed.misc.c  sae.h  window. h 
cc  SC CFLAGS)  ed.misc.c 
mv  ed.misc.o  Object 

Object/ed .functions .o:  ed .functions .c  sae.h  window. h 
cc  SC CFLAGS)  ed .functions .c 
mv  ed .functions .a  Object 

Object/ed .table .o:  ed. table. c  status. h  sae.h  window. h 
cc  SCCFLAGS)  ed. table. c 
mv  ed. table. o  Object 

Object/sae . parser . o :  sae. parser. c  sae.h 
cc  SCCFLAGS)  sae. parser. c 
mv  sae. parser. o  Object 

Object/sae .compile .o:  sae . compile . c  tokens. h  status. h  sae.h 
cc  SCCFLAGS)  sae . compile . c 
mv  sae .compile . o  Object 

Object/cp. compile. o:  cp. compile. c  tokens. h  status. h  sae.h 
cc  SCCFLAGS)  cp. compile. c 
mv  cp . compile. o  Object 

Object/cp .token .o:  cp. token. c  tokens. h  status. h  sae.h 
cc  SCCFLAGS)  cp . token . c 
mv  cp. token. o  Object 


Object/cp .err .o:  cp.err.c  tokens. h  status. h  sae.h 
cc  SCCFLAGS)  cp.err.c 
mv  cp.err.c  Object 

□bject/sae .edit .o:  sae.edit.c  sae.h 
cc  SCCFLAGS)  sae.edit.c 
mv  sae.edit.o  Object 

Object/sae .help .o:  sae.help.c  sae.h 
cc  SCCFLAGS)  sae.help.c 
mv  sae.help.c  Object 

Object/ed.help.o:  ed.help.c  sae.h 
cc  SCCFLAGS)  ed.help.c 
mv  ed.help.c  Object 

Object/ ed.cmd.c:  ed.cmd.c 

cc  SCCFLAGS)  ed.cmd.c 
mv  ed.cmd.o  Object 

Object/ed.disp.o:  ed.disp.c  sae.h 
cc  SCCFLAGS)  ed.disp.c 
mv  ed.disp.o  Object 


** 

mm 

Statistical  Analysis  Environment 

** 

*• 

mm 

SAE  DEFINITIONS 

mm 

mm 

mm 

File:  sae 

.h 

mm 

mm 

Original : 

23  April  1986  -  K  N  Cole 

mm 

mm 

mm 

Current: 

6  October  1386  -  K  N  Cole 

mm 

mm 

wmmmm / 

♦♦ifndef  TRUE 

#def ino  TRUE  1 

#endif 

♦♦ifndef  FALSE 

♦♦define  FALSE  0 

#endif 

♦♦define  boolean  int 

♦♦define  EDLINES  15 

♦♦define  EDCOLS  BO 

♦♦define  MAXLINE  EDCOLS-2 

♦♦define  flAXTEMP  256 

♦♦define  MAXCOMMAND  BO 

♦♦define  TABSI2E  B 

#def ine  EPRORCODE  339 


♦♦define  NOLINE 
♦♦define  UPLN 
♦♦define  DOWN 
♦♦define  LEFT 
♦♦define  RIGHT 
♦♦define  ESC 
♦♦define  BELL 
♦♦define  TAB 
♦♦define  CR 
♦♦define  NL 
♦♦define  BLANK 

♦♦define  EDITOR  0  /*  shell  command  codes  •/ 

♦♦define  HELP  1 

♦♦define  TABLECMD  2 

♦♦define  LRTCMD  3 

♦♦define  COMPILER  4 

♦♦define  RETURN  5 

♦♦define  EXIT  6 

/•  COMPILER  output  files  •/ 

♦♦define  CPENUFILE  "Math/env.h” 

♦♦define  CPTABLEFILE  "Math/table  .  h” 

♦♦define  CPLRTFILE  ”Math/lrt.h” 

/*  SYSTEM  HELP  command  definitions  */ 
♦♦define  COMPILERHELP  "compiler” 

♦♦define  EDITORHELP  "editor” 


’ \013 ’ 
’  \012  ’ 
’  \b  ’ 

’  \014 ’ 
’  \033  ’ 
’  \007 ’ 
’\t  ’ 
’Nr* 

’  \n  ’ 


F-B 


#def ine 

TABLEHELP 

”tablB" 

#def ine 

LRTHELP 

”lrt  ” 

♦♦define 

EXITHELP 

’’exit" 

#def ine 

HELPHELP 

"help” 

/• 

EDITOR  HELP  program  definitions  */ 

#def ine 

EDHELPFILE 

"Help/editor .commands” 

#def ine 

EDLANGFILE 

’’Help/editor .  reserved” 

#def ine 

HELPLINES 

7 

/» 

number  of  lines  */ 

#def ine 

HELPCOLS 

70 

/» 

number  of  columns  */ 

♦♦define 

HELPINDT 

5 

/• 

beginning  column  */ 

#def ine 

HELPSTART 

16 

/• 

beginning  line  */ 

/* 

DISPLAY 

program  definitions  */ 

#def ine 

DISPLINES 

7 

/• 

number  of  lines  */ 

#def ine 

DISPCOLS 

70 

/* 

number  of  columns  */ 

#def ine 

DISPINDT 

5 

/* 

beginning  column  */ 

#def ine 

DISPSTART 

16 

/• 

beginning  line  */ 

/• 

COMMAND 

program  definitions  */ 

#def ine 

CMDLINE 

15 

/* 

line  number  of  command  line  */ 

/• 

COMPILER  program  definitions  */ 

#def ine 

MAXSYMBOLS 

20 

/* 

maximum  size  of  symbol  storage 

#def ine 

nAXUlORD 

80 

/* 

maximum  size  of  filename  */ 

♦♦define 

DEFMXTERfIS 

10 

#def  ine 

DEFMETHOD 

1 

/* 

1  EXACT  0  ASYMT0TIC  */ 

#def ine 

DEFSAMPLES 

2 

♦♦def  ine 

DEFALPHA 

0. 

1 

♦♦def  ine 

DEF INC 

1 

/ 


Statistical  Analysis  Environment 
flAIN 

File:  sae.main.c 

Original:  14  April  1986  -  K  N  Cole 

Contains  nodules: 

main  -  HAIN  program  routine 

Calls  nodules 

sae. shell  -  shell  program  (sae .shell . c5 


♦♦include  <stdio.h> 
♦♦include  <curses.h> 


mm 
mm 
mm 
mm 
mm 
mm 
mm 
mm 
mm 
mm 
mm 
mm 
m  / 


mainC  5 
{ 

int  status,  proc_id; 

'+  Display  Introduction  */ 

printF  C  ”v  nUJelcome  to  the  Statistical  Analysis 

Environment  -  Oersion  1.2\n”5; 

/*  Save  current  screen  characteristics  */ 
savetty C  1 ; 

/•  Start  SHELL  program  */ 
iF  (Cproc  id  “  ForkC55  ■■  05 

execlC ”/bin/csh”,  ”csh”,  ”-c",  ”sae . shell ” ,  NULL 5 ; 

while  Cwait(&status5  !-  proc_id5;  /*  wait  For  shell  to  terminate 
IF  ^status!  resettyC5;  /*  reset  terminal  characteristics 

,m  Exit  when  SHELL  program  terminates  */ 
exit C 5  ; 


/ 


**  Statistical  Analysis  Environment 

**  SHELL 

**  File:  sae. shell. c 
**  Original:  ?  April  1SS6  -  K  N  Cole 
**  Current:  S  October  1936  -  K  N  Cole 
•• 

♦♦include  <stdio.h> 

#mclude  "sae.h" 

char  argstoreC MAXC0MMAND1 ;  /*  command  line  storage  •/ 

mainC ) 

/*  Main  program  loop...  prompt  -  read  -  execute 

•/ 

C 

int  procid,  status; 
char  ‘argpomter; 

while  *' TRUE}  C 

pnntf  (  ” \nSAE  >  ”);  /*  prompt  •/ 

argpointer  -  argstore; 

fgetsCargpointer ,  MAXCOMMAND,  stdin);  /•  read  command  line  */ 
switch  CparserC&argpointer) )  C  '*  read  and  execute  */ 

case  EDITOR:  /*  run  EDITOR  */ 

edit Cargpointer ) ;  break; 

case  HELP:  /*  display  COnnAND  EXPLAINATIONS  •/ 

helpCargpointer) ;  break; 
case  TABLECHO:  /*  run  TABLE  program  •/ 

systemC ’’table”) ;  break; 
case  COMPILER:  /*  COMPILE  program  *./ 

compileCargpointer) ;  break; 
case  EXIT:  /*  exit  to  operating  system  •/ 

putc(  ’ \n  ’  ,  stdout } ;  exitO;  break; 
case  RETURN:  /*  ignore  simple  returns  m/ 

break ; 

default:  /*  try  to  execute  UNIX  system  command  •/ 

argpcinter  -  argstore; 

while  (*argpointer  S&  •'.•argpointer  •“  NL}}  argpointer++ ; 
•argpointer  -  NULL; 
procid  -  fork1'.}; 
if  (procid  —  0} 

execl( ”/bin/csh” ,  ”csh”,  ”-c”,  argstore,  NULL}; 
else  if  (procid  -1} 

printfC”  n***  Cannot  Execute  Command  ’ *js’\n”,  argstore}; 
else  C 

while  ( wait CSstatus)  !-  procid}; 
if  (status) 

prmtfC'n*4*  Error  in  Executing  Command  ’  *.s  ’ \n"  ,  argstore )  ; 

} 

break ; 

>  }  ) 


mm 

mm 

mm 

mm 

mm 

** 

»* 


mm 

mm 

mm 

Statistical  Analysis 

Environment 

mm 

mm 

PARSER 

mm 

** 

mm 

mm 

File-.  sae.  parser,  c 

mm 

mm 

Original:  7  April  1986  -  K  N 

Cole 

mm 

mm 

Current:  B  October  1986  -  K  N 

Cole 

mm 

** 

mm 

mm 

Contains  Modules: 

mm 

mm 

parser 

mm 

** 

parseck 

mm 

** 

mm 

/ 


#include  <stdio.h> 
^include  <ctype.h> 
^include  ’’sae.h” 


/* 


V 


int 

parser Carg) 
char  **arg; 

/*  parser  -  parses  the  input  for  valid  cr mmand  names.  Returns  boolean 
indication  for  valid  command  inputs. 


'/ 


int  value; 

char  *argpointer; 


argpointer  -  *arg; 
switch  C*argpointer)  C 


value  -  parseckCargpainter , ’’ompiler  ”  ,  COMPILER);  break; 

/*  compiler  */ 


switch  C*C++argpointer) )  C 


value  “  parseckCargpointer , ”it” ,  EXIT);  break; 

/*  exit  */ 

case  ’ d  ’  : 

value  -  parseckCargpointer , ”itor” ,  EDITOR);  break; 

/»  edit  */ 

default: 

value  “  ERRORCODE;  break; 

> 


break ; 


case  ’q’: 


value  -  parseckCargpointer , ”uit" ,  EXIT);  break; 

/*  exit  */ 

case  ’ t ’ : 

value  -  parseckCargpointer , ’’able” ,  TABLECMD);  break; 

/»  table  */ 


case  ’ 1 ’ 
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w. 
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value  -  parseckCargpointer , ”rt” ,  LRTCND?;  break; 

/•  lrt  */ 

case  ’h’: 

value  *  parseckCargpointer , ”elp” ,  HELP?;  break; 

/•  help  */ 

case  ’? ’ : 

value  “  HELP;  break; 
case  ’ \n’: 
case  ’ \r ’ : 

value  “  RETURN;  break;  /*  only  a  return  */ 

case  ’ 

value  -  ERRORCODE;  break; 


default: 

value  -  ERRORCODE;  break; 


/*  error  */ 


/*  move  pointer  to  beginning  of  arguments  .  .  .  after  command  word  */ 
while  C*argpointer  &S  ! isspaceC*argpointer? ?  argpointer++ ; 
while  C*argpointer  &&  isspaceC*argpointer? ?  argpointer^-*- ; 

*arg  -  argpointer; 


returnC value? ; 


parseck  C  argpointer , cp , n  ? 
char  *argpointer,  *cp; 
int  n; 

/•  parseck  -  checks  the  remainder  of  the  command  word  after  the 
parser  has  given  found  the  first  letter  to  be  valid. 

•/ 

C 

int  value; 


value  -  ERRORCODE; 

while  C*C-*-*-argpo inter?  --  *cp?  cp-*--*-; 
if  CisspaceC*argpointer? ?  value  ■  n; 
returnC value? ; 

1 
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Statistical  Analysis  Environment 
HELP  COMMAND 

File:  sae.help.c 

Original:  7  April  19B6  -  K  N  Cole 
Current:  SO  October  1906  -  K  N  CoIb 


Contains  Module: 

help  -  display  HELP  information 


/ 


^include  <stdio.h> 


#include  <ctype.h> 


^include  "sae.h” 


helpCarg) 

/•  help  -  SAE  system  help  command 

displays  selected  information  from  the  Help  directory 

*/ 

char  *arg; 

C 

char  *cC80],  *s,  *as; 
int  code; 


printfC’SAE  Help  command,  Uersion  S.O\n\n”); 


if  C*arg)  C  /*  append  the  proper  file  namB  to  Help/help  */ 

s  -  arg; 

strcpyCc, "cat  Help/help.”); 
code  -  parserC&s); 
switch  Ccode)  C 

case  COMPILER:  strcatCc , COMPILERHELP) ;  break; 

case  EDITOR:  strcatCc, EDITORHELP) ;  break; 

case  LRTCMD:  strcatCc , LRTHELP) ;  break; 

case  TABLECMD:  strcatCc , TABLEHELP) ;  break; 

case  EXIT:  strcatCc , EXITHELP) ;  break; 

case  HELP:  strcatCc , HELPHELP) ;  break; 

default : 

ss  ■  s;  /*  otherwise  Just  print  the  file  given  */ 

while  C*ss  SS  ! isspaceC*ss3 )  ss++; 

if  C*ss)  *ss++  -  NULL; 

strcpyCc, "cat  Help/”); 

strcatCc , s) ; 

> 

system Cc) ; 
else  C 

/•  print  the  first  line  of  each  file  named  ’help.xxx’  */ 

pnntf  C  ”Command\t\tDescription\n - \t\t - \n”)  ; 

systemC”head  -1  Help/help.*  !  grep  -v  \”**>\”  !  cat  -s”}; 

) 


/ 


Statistical  Analysis  Environment 
EDITOR  WINDOW  COMMANDS 

File:  window. h 

Original:  2S  April  1SBB  -  K  N  Cole 
Current:  B  September  1386  -  K  N  Cole 


/ 


♦♦define  ewmoveCy.x)  UOIDCwmoveCeditor , y , x) ) 

♦♦define  ewclrtoeolO  UOIDCwclrtoeolCeditor) ) 

♦♦define  ewgetchC)  UOIDCwgetchCeditor) ) 

♦♦define  ewdeletelnC)  UQIDCwdeletelnCeditor) ) 

♦♦define  ewdelchO  UOIDCwdelchCeditor) ) 

♦♦define  ewtouchO  UOIDCtouchwinCeditor) ) 

♦♦define  ewclearO  UOIDCwclear Ceditor) ) 

♦♦define  ewrefreshO  UOIDCwref reshCeditor) ) 

♦♦define  ewaddchCy , x, ch) 

UOIDCwmoveCeditor , y , x)— *ERR?ERR: waddch Cedi tor , ch) ) 
♦♦define  ewinschCy , x, ch) 

UOIDCwmoveCeditor , y , x)““ERR?ERR : winsch Cedi tor , ch) ) 
♦♦define  ewinsertlnCy ) 

UOIDCwmoveCeditor , y , 0)““ERR?ERR : winsertlnCeditor) ) 
♦♦define  ewgetyxCy,x)  y  “  editor-> _cury ,  x  -  editor->_curx 
♦♦define  ewcharCy.x)  Ceditor->__yCy]ICxD  R  0177) 

♦♦define  ewcursorO 

UOIDCwmoveCeditor , editor->_cury , editor->_curx) ) 


/ 


Statistical  Analysis  Environment 
EDITOR 

File:  sae.edit.c 

Original:  7  April  1SB6  -  K  N  Cole 

Current:  6  October  19BB  -  K  N  Cole 


Contains  nodule: 

edit  -  EDITOR  main  program 


/ 


^include  <stdio.h> 

#include  <ctype.h> 

^include  ”sae.h” 

extern  void  edappendO,  edcommandO,  edinsertO,  eddellineO, 
edinsertlnO,  edreplacechar O  ,  edredrawO, 
eddelcharO,  edwriteO,  edinitC),  switchcFlagO  , 
suiitchhelpC  5  ,  switchlangO,  switchdisplay  O  ; 
extern  boolean  cmdcmdO; 

boolean  cflag; 

edit  Cary) 
char  *arg; 

C 

boolean  done; 
char  *editFile; 

/*  Display  Editor  Signon  Message  and  initialize  windows  */ 
printFC ”\nSAE  Editor,  Version  1.3\n\n”5; 

/*  Prepare  the  Filename  and  initialize  the  editor  */ 
editFile  -  arg; 
cFlag  -  FALSE; 
iF  C*arg)  C 

while  C*arg  fifi  !  isspaceC *arg} )  arg++; 

•arg  -  NULL; 

edinit C editFile?  ; 

/*  Main  program  loop  */ 
done  “  FALSE; 
while  C ! donB)  C 

switch  CedcommandC  3  }  £ 
case  ’ a  ’  : 

edappend'icFlag) ;  break; 
case  ’ i ’ : 

edinsertCcFlag) ;  break; 
case  ’ d  ’  : 

eddellineCcFlag) ;  break; 
case  ’ C  ’  : 


/*  append  mode  */ 

/*  insert  mode  */ 

/*  delete  line  */ 

/*  toggle  automatic  compiling 


suit chef  lagC&cflag) 
case  ’ H ’ : 


switchhelpC  ) 
case  ’ L ’ : 

siuitchlangC  ) 


break 


break 


break ; 

/*  tcgglB  hBlp  display  */ 

/*  tcggle  language  display  */ 


case  ’o’:  /*  open  a  new  line  */ 

edinsertlnC ) ;  edinsertCcf lag) ;  break; 

case  ’ r’:  /*  replace  character  */ 

edreplacecharCcf lag) ;  break; 

case  ’S’:  /*  toggle  statistics  display  */ 

suitchdisplay O ;  break; 

case  *v’:  /*  redraw  screen  «/ 

edredrawO;  break; 

case  ’x’:  /*  delete  character  */ 

eddelcharCcf lag) ;  break; 

case  ’Z’:  /*  exit  editor  */ 

eduiri  teCeditf  ile) ;  done  -  TRUE;  break; 

case  ’ : ’ :  /*  process  line  commands  */ 

done  -  cmdcmdO;  break; 

default:  /*  invalid  command  */ 

break ; 

1 


edexit C ) : 


/ 


Statistical  Analysis  Environment 
EDITOR  FUNCTIONS 

File:  ed . functions .c 

Original:  ?  April  1S8B  -  K  N  Cole 

Current:  6  October  1SB6  -  K  N  Cole 

Contains  Nodules: 
edinit 
edexit 
edappend 
edinsert 
edinsertln 
eddelline 
eddelchar 
edreplacechar 
ediurite 
edread 
edredrau 
edcommand 


♦♦include  <stdio.h> 

♦♦include  <ctype.h> 

•include  <curses.h> 

♦♦include  ’’sae.h" 

♦♦include  "window .  h" 

extern  void  edreadO,  cmdinitO,  initdisplay C ) 
inittableO,  motioninit C  ? ,  cmdprintO, 
tablewriteO,  mvcursorO,  tabnewlineO 
clearcompileC ) ; 

extern  char  "readtextO ,  motionO,  getkeyO; 
extern  int  lengthO,  compileallO; 
extern  boolean  cflagtrueO; 

UJINDOUI  ‘editor; 

char  templineCNAXTENPD ; 


inithelpC ) , 
tablereadC ) , 
writetextC ) , 


void 

edinitCarg) 
char  *arg; 

/*  edinit  -  initializes  the  edit  window  as  required  by  the  ’curses 
package . 

*/ 

C 

/*  Initialize  terminal  window  */ 

if  CinitscrC)  —  ERR) 

printfC”***  Error  during  screen  initialization  ***\n\n”); 
else  C 

rawC);  noechoC);  nlC); 

/•  initialize  editor  windows  */ 
if  C ! C editor  -  newwinCEDLINES , EDCQLS ,0,0))) 

printfC”***  Error  during  editor  window  initialization  ***  \n\n 
else  C 

ewclearC ) ; 
cmdinit Carg) ; 
initdisplay C ) ; 
inithelpC ) ; 
inittableC ) ; 

if  C*arg)  edreadCarg , 0) ;  /•  read  File  into  editor  */ 

else  cmdprint C ”No  Edit  File”); 


motioninitO;  /*  36t  original  position  of  editor  •/ 

) 

) 


void 

edexitCcflag) 
boolean  cFlag; 

/*  edexit  -  prepares  edit  window  to  exit  the  editor 

*/ 

C 

/*  clear  bottom  of  screen  and  exit  to  shell  •/ 

move  CO , 16) ; 
clrtobot C ) ; 
refreshC ) ; 
endwinC ) ; 


void 

edappendCcf lag) 
boolean  cflag; 

/*  edappend  -  append  text  to  the  current  edit  cursor  location 


int  ey,ex; 

extern  void  edinsertC); 


eugetyxCey ,ex); 

if  ClengthCey))  mvcursorCey  ,  ex+1 )  ; 
edinsertCcf lag) ; 

> 


void 

edinsertC cflag) 
boolean  cflag; 

/*  edinsert  -  append  text  before  the  current  edit  cursor  location 

•/ 


■> 

char  c; 

V 

char  *s,  *ss; 

int  ey,ex,tx,cx; 

i 

ewgetyxCey , ex) ; 

ss  -  readtextCey); 

jV.| 

if  Css  —  NULL)  C 

pointer  to  current  text  line  */ 


uiritetextCey ,  NULL); 
ss  ■  readtextCey); 

strcpyCtempline,  ss); 

SS  “  SS  +  ex; 
s  ■  templine  +  ex; 
tX  -  0; 

while  CCc  “  ewgetchO)  !■  ESC)  C 
switch  Cc)  C 


/*  copy  current  line  to  templine  */ 
/*  pointer  to  point  of  insertion  */ 
/*  pointer  to  point  of  insertion  */ 
/*  length  set  to  current  position  ** 


case  CR: 
case  NL: 


case  TAB: 


*S  +  +  -  NL;  *s  -  NULL; 
tabnewlineCey  +  1 ,  ss); 
writetextCey*-*- ,  templine); 
tX  "  0;  ex  -  0; 
ss  ”  readtextCey); 
strcpyCtempline,  ss); 
s  -  templine; 

if  Ccflag)  compilelineCey-1 ) ; 
mvcursor  C  ey , ex ) ; 
break ; 


terminate  line  */ 
new  line  */ 
finished  line  */ 
reset  pointers  •/ 


if  C  C lengthCey )+tx+TABSIZE)  <  NAXTENP)  C 
for  Cc x  -  1;  cx  <■*  TABSI2E;  cx++)  C 
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if  Cex  <  MAXLINE)  euiinschCey  ,  ex ,  BLANK)  ; 
BX++;  •s++  -  BLANK; 

> 

tx  -  tx  +  TABSIZE; 
ewmoveCey  ,ex); 

) 

else  ederrorCl); 
break ; 

case  LEFT: 

if  C tx  >  0)  C 

ex — ;  ewmoveCey , ex) ; 
eudelchC ) ; 

tx — ;  S — ; 

) 

else  ederrorCl ) ; 
break ; 

default : 

if  C  C  length Cey)+tx+l )  <  MAXTEMP)  C 
if  Cex  <  MAXLINE)  ewinschCey , ex , c) ; 
tx++;  ex++j  *s++  ■  c;  ewmoveCey , ex ) ; 

> 

else  ederrorC 1); 
break ; 

) 

mvcursorCey , ex) ; 

) 

*s  -  NULL; 

strcatCtempline,  ss); 
writetextCey ,  templine); 
if  Ccflag  S&  tx)  compilelineCey ) ; 
mvcursorCey ,  ex  ■+■  Ctx  ?  -1  :  0)); 


/ 


/ 


void 

edinsertlnC ) 

/•  edinsertln  -  insert  a  line  at  the  current  editor  cursor  position. 

•/ 

C 

int  ey,  ex; 

euigetyxCey,  ex); 
tabnewlineC+-*-ey ,  NULL); 
mvcursor  C  ey , 0 ) ; 

) 

/•••»••*•••••»»•*•••*•»*»»»««»•»*»****•*•**•**»**•**••»*•/ 

void 

eddellineCcf lag) 
boolean  cflag; 

/*  eddelline  -  delete  the  line  at  the  current  editor  position. 

•/ 

C 

int  ey,  ex; 

euigetyxCey,  ex); 
eudeletelnC ) ; 
tabdeletelineCey ) ; 
if  Ccflag)  compileallC ) ; 
mvcursor Cey , 0) ; 

) 

void 

eddelchar Ccflag) 
boolean  cflag; 

/*  eddelchar  -  delete  a  character  at  the  current  editor 
cursor  position. 

•/ 

C 

int  ey,ex; 
char  *s,  *st; 


eujgetyxCey ,  ex) ; 
if  ClengthCey))  C 
ewdelchC ) ; 

s  -  Cchar  *’)  CCint)  rBadtextCey)  +  ex) 

if  C*s  !-  NL)  while  C*s)  i*s  -  •Cs+1);  s++;> 

else  ederrorC 1 ) ; 

if  Ccflag)  compilelineCey) ; 

mvcursorCey , ex); 

> 

else  ederrorC 1); 
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void 

edreplacecharCcf lag) 
boolean  cflag; 

/*  edreplacechar  -  replaces  the  character  at  the  current 
editor  cursor  location. 

•/ 

< 

int  ey,ex; 
char  *s,  c; 

ewgetyxCey , ex) ; 
s  ■  readtextCey ) ; 
if  C*Cs  +  ex)  ! -  NL)  C 

eumddchCey  ,  ex ,  c  ■  ewgetchO); 

*Cs  +  ex)  -  c; 

else  ederrorCl); 
if  Ccflag)  compilelineCey ) ; 
mvcursor  C  ey , ex ) ; 

> 
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void 

edwriteC outf ile) 
char  *outfile; 

/*  edwrite  -  opens  the  Fie  named  by  Coutfile)  and  writes 
the  contents  of  the  edit  buffer  to  the  File. 

If  the  ’cflag’  is  true,  the  file  is  compiled. 


*/ 

C 

FILE  *fp; 

/• 

strcpyCtempline, ”mv  ” ) ; 
strcatC temp line, outf ile) ; 
strcatCtempline, ”  ”); 
strcatC tempi ine, outfile) ; 
strcat  C  templine , ” . bak ” ) ; 
systemCtempline) ;  /* 


prepare  command  to  make  backup  copy 


make  backup  file  •/ 


if  Cfp  -  fopenCoutf ile,  "w”))  C 
sprintf Ctempline,  ’’Writing  \a\r’ 
tablewriteCfp) ; 
fcloseC  f  p) ; 
if  CcflagtrueC ) ) 

if  Ccompileall C )  -■  0)  C 
setoutputonC ) ; 
compileallC ) ; 
setoutputoff C ) ; 

} 

) 

else 

sprintFCtempline, "Cannot  open  * 
cmdprintC templine) j 


outf ile); 


For  output”,  outfile); 


/ 


void 

edreadC inf ile , ey ) 
char  *infile; 
int  ey ; 

/*  edread  -  opens  the  file  named  by  C infile)  and  reads 
the  contents  into  the  Bditor. 


FILE  *fp; 

if  Cfp  “  fopenC inf ile ,  ”r”)) 

C 

sprintf Ctempline,  ’’Reading  "is\r  ’’ ,  inf  i le)  ; 
cmdprint Ctempline) ; 
tablereadCfp, ey  ) ; 
f closeCfp) ; 

else  sprintf  Ctempline ,  ’’Cannot  open  \s”  ,  infile); 
cmdprintCtempline) ; 

} 


void 

edredrawC ) 

/*  edredraui  -  redraws  the  edit  window  by  forcing  the  screen  to 
be  cleared  and  then  redrawn.  ***  NOT  the  same  as  ’ewrefreshC) 

*/ 

C 

clearokCcurscr , TRUE) ; 
ewtouchC ) ; 
ewrefreshC ) : 


char 

edcommandC ) 

/*  edcommand  -  returns  a  single  character  command  code 


char  c; 


while  (!(c  ■  motionCO); 
switch  Cc)  C 
case  ’d ’ : 

switch  CgetkeyO)  C 
case  ’ d ’ : 

c  -  ’d ’ ;  break; 


/*  delete  mode  */ 


/*  delete  line  */ 


/*  delete  character  */ 


case  BLANK : 

c  ■  ’x ’ ;  break; 
default: 

c  ■  NULL;  break; 
break ; 


case  ’ Z ’ :  /* 

if  CgetkeyO  !■  ’Z‘'J  c  “  NULL; 
break; 


/*  save  and  exit  */ 


default:  break; 

) 

returnCc) ; 
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Statistical  Analysis  Environment 
EDITOR 

File:  ed.cmd.c 

Original:  7  April  1906  -  K  N  Cole 

Current:  20  April  1906  -  K  N  Cole 

Contains  Modules: 
cmdinit 
cmdclear 
cmdprint 
cmdcmd 


^include  <stdio.h> 

^include  <curses.h> 

#include  "sae.h" 

^include  ’’window . h” 

extern  WINDOW  “editor; 

WINDOW  “command; 

char  sourcef i leC MAXCOMMANDT ; 

. . . 

void 

cmdinit(arg) 
char  *arg; 

/•  cmdinit  -  initialize  the  command  line  window. 

Copy  input  Filename  to  storage. 

*/ 

< 

if  Cary)  3trncpyCsourcef  ile,  arg,  MAXCOMMAND-1 ) ; 
else  sourcefileCOD  -  NULL; 

command  -  newwinC 1,00, CMDLINE , 0) ; 
wclear1:  command)  ; 

. . . 

void 

cmdclear <. ) 

/*  cmdclear  -  clear  the  command  line 

*/ 

C 

wmove  < command ,0,0); 
wclrtoeol  '".command) ; 

) 


void 

cmdprint (s) 
char  *s; 

C 

int  ey,ex; 

euigetyxCey ,  ex')  ; 
uimovsCcommand,  0 , 0)  ; 
wclrtOBol C command) ; 
waddstrCcommand ,  s)  ; 
ursfrashC command) ; 
mvcursor  C  ay , bx ) ; 


boolean 
cmdcmdC ) 

/*  cmdcmd  -  read  and  process  commands. 

•/ 

€ 

boolean  exit; 

char  cmd,  FilenameCriAXCOHriANDD  ,  *c; 
int  ey,ex; 

exit  "  FALSE; 
cmdprintC”:  ”5; 
cmd  ”  wgetchCcommand) ; 
switch  (cmd)  C 

case  ’q’:  /*  QUIT  command  */ 

cmdprint(”:  quit”); 
exit  -  TRUE; 
break ; 

case  ’r’:  /*  READ  command  */ 

ewgetyxCey , ex) ; 

cmdprintC:  read  input  File:  ”); 

c  -  Filename; 
echo(  )  ; 

while  C  C*c  "  wgetch(command) )  !■  CR)  C++;  *c  -  NULL; 
noecho( ) ; 

iF  (FilenameCOl )  edread(ey,  Filename); 
else  cmdprint  ( ’’Read  what?”); 
break ; 

case  ’e’:  /*  EXIT  command  */ 

cmdprintC:  exit  output  File:  ”); 

exit  -  TRUE; 

case  ’w’:  /•  WRITE  command  */ 

iF  (!exit)  cmdprint(":  write  output  File:  ”); 
c  -  Filename; 
echo( ) ; 

while  C(*c  “  wgetch(command) )  !■  CR)  C++;  *c  -  NULL; 
noecho ( ) ; 

iF  (FilenameCOl )  edwrite(Filename) ; 
else  iF  (sourceFileCOl )  edwrite(sourceFile) ; 
else  cmdprint(  ’’Write  what?”); 
break ; 
deFault : 

cmdprintC  ’’What?” )  ; 
break ; 

) 

ret urn (exit) ; 


/»  DEFAULT  */ 


Statistical  Analysis  Environment 
EDITOR  HELP 

File:  ed.help.c 

Original:  7  April  1986  -  K  N  Cole 

Current:  24  April  1986  -  K  N  Cole 

Contains  Modules: 
inithelp 
readhelp 
switchhelp 
switchlang 
refreshhelp 
ckhelp 


tinclude  <stdio.h> 
^include  <curses.h> 
^include  ”sae.h” 


extern  void  edredrawO  ; 

/*  global  window  and  flags  */ 

WINDOW  *helpwindow; 

boolean  helpon,  langan,  helpready,  langready; 

void 

inithelpC ) 

/*  inithelp  -  initialize  the  help  window  and  Flags 

•/ 

C 

helpwindow  -  newwinC HELPL INE5 , HELPCOLS, HELPSTART, HELPINDT) ; 

helpon  -  FALSE; 

langon  -  FALSE; 

helpready  -  FALSE; 

langready  -  FALSE; 

1 


/ 


i 
I 


void 

readhelpC ) 

/*  readhelp  -  reads  the  help  or  language  files  into  the  window 

•/ 

C 

FILE  *hp; 

char  templnCHELPCDLSl j 

int  hy; 

if  Chelpon)  C 

if  C !  Chp  -  fopenCEDHELPFILE,  Mr”)» 

cmdprint C ”•»*  ERROR  ***  Editor  Help  File  NOT  Found”); 

else  if  Clangon) 

if  C ! Chp  -  f open C EDLANGF I LE ,  ”r”))) 

cmdprint C ERROR  ***  Editor  Language  File  NOT  Found”); 

if  Chp)  C 

for  Chy  -  0;  hy  <  HELPLINES;  hy++)  C 
fgetsCtempln, HELPCOLS-1 , hp) ; 
wmoveChelpwindow , hy , 0) ; 
wprintwChelpwindow, templn) ; 

fclaseChp) ; 


void 

switchhelpC ) 

/*  switchhelp  -  change  the  on/off  state  of  the  help  display 

*/ 

C 

if  Chelpon)  C 
helpon  -  FALSE; 
edredrawC ) ; 

else  C 

helpon  -  TRUE; 
langon  -  FALSE; 
if  Clhelpready)  C 
readhelpC )  ; 
helpready  -  TRUE; 
langready  ■  FALSE; 

> 

if  Cckdisplay C ) )  swi tchdisplay C ) ; 
touchwinChelpwindow) ; 
wrefreshChelpwindow) ; 

) 

} 
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void 

switchlangC ) 

/*  switchlang  -  turns  OFF  the  helpdisplay  and  ON  the  language  display 

•/ 

C 

if  C langon)  C 
langon  -  FALSE; 
edredrawC  ) ; 

else  C 

langon  -  TRUE; 
helpon  -  FALSE; 
if  Cllangready)  C 
readhelpC  ) ; 
langready  ■  TRUE; 
helpready  -  FALSE; 

if  Cckdisplay C ) )  suitchdisplay  C  )  ; 
touchwinChelpuindow) ; 
uirefresh(helpuiindoui) ; 

1 


void 

refreshhelpC  ) 

/*  refreshhelp  -  refresh  the  help  window  if  necessary 

•/ 

C 

if  Chelpon  I !  langon)  C 
touchwinChelpwindow) ; 
wrefreshChelpwindow)  ; 

> 

1 


boolean 
ckhelpC ) 

/*  ckhelp  -  show  the  condition  of  the  flag  ’helpon’ 


returnChelpon) ; 
1 
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Statistical  Analysis 

Environment 

mm 

mm 

EDITOR  DISPLAY 

mm 

File:  ed.disp.c 

mm 

mm 

Original:  7  April  19BB  -  K  N 

Cole 

mm 

Current:  24  October  1986  -  K 

N  Cole 

mm 

Contains  Nodules: 

mm 

mm 

initdisplay 

mm 

suiitchdisplay 

mm 

reFreshdisp 

mm 

updatedisplay 

mm 

ckdisplay 

mm 

switchcFlag 

mm 

cFlagtrue 

mm 

mm 

#include  <stdia.h> 

#include  < curses. h> 

#include  ”sae.h” 

extern  void  clearcompileO  ,  switchhelpO, 
setoutputoFFC ) ; 
extern  boolean  ckhelpO  ; 

extern  int  lengthO  ,  lastlineO,  statcodeO  ,  compileall C  )  ; 
extern  char  *errtextC); 

WINDOW  “display; 
bool  displayon,  cpon; 

/»*»»••••*••**•*»•••••»»••••••••••»•••»*••*•*•••»•«»»»/ 

void 

initdisplay C  ) 

C 

display  -  nemwinC 01  SPLINES,  D I  SPOOLS,  DI5PSTART,  DISPINDT)  ; 
displayon  -  FALSE; 
cpon  -  FALSE; 

) 


/ 


/ 


void 

switchdisplay C ) 

C 

if  Cdisplayon)  C 
displayon  -  FALSE; 
wclearCdisplay ) ; 
wrefreshCdisplay ) ; 

else  C 

displayon  -  TRUE; 
if  CckhelpO)  switchhelpC ) ; 
touchuiinCdisplay  )  ; 
wrefreshCdisplay 5 ; 

) 

1 


void 

refreshdispC ) 

/*  refreshdisp  -  refresh  the  display  window. 


if  ’displayon’ 


if  Cdisplayon)  C 
tauchwinCdisplay ) ; 
wrefreshCdisplay) ; 


void 

updatedisplay Cy , x) 
int  y,x; 

C 

wmoveCdisplay ,1,2); 

wprintwCdisplay , ’’Line  %2d  Column  \Ed 
wmoveCdisplay ,1,50); 

if  Ccpon)  wprintwCdisplay , ’’Compiler  ON 
else  wprintwCdisplay ,  "Compiler  OFF’’); 
wmoveCdisplay , 3, 2) ; 
wprintwCdisplay , ’’Line  length:  %2d 


y.  x); 


wprintwCdisplay , ’’Line  length:  %2d  Last  line:  **2d”, 

lBngthCy-1),  lastlineO); 

wmoveCdisplay ,5,2); 

if  Ccpon)  wprintwCdisplay ,  "Compiler  hessage:  *is”, 

errtextCstatcodeCy-1 ) ) ) ; 

else  wclrtoeol Cdisplay ) ; 
refreshdispC ) ; 

> 
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boolean 
ckdisplay C ? 

/*  ckdisplay  -  return  the  current  value  of  the  ’displayon’  flag 

*/ 

C 

returnCdisplayon? ; 


void 

switchcf lagCcf lag? 
int  *cflag; 

/*  switchcflag  -  change  the  mode  of  editor  operation 
to  Cor  from?  using  the  compiler. 

*/ 


if  (*cf lag?  C 
*cflag  “  FALSE; 
cpon  ■  FALSE; 
wmoveC display ,1,50?; 
uiprintwC  display  ,  ’’Compiler  OFF”?  ; 
clearcompileC  ? ; 

else  C 

*cf lag  -  TRUE; 

cpon  -  TRUE; 

setoutputoff C  ? ; 

wmoveCdisplay ,1,50?; 

wprmtwCdisplay  ,  "Compiler  ON  ”?; 

compileall C  ? ; 


/* 


boolean 
cf lagtrueC  ? 

/*  cflagtrue  -  returns  value  of  ’cpon’  flag 

*/ 


returnCcpon? ; 
1 


void 

mvcursar  C  ey , ex ) 
int  ey,ex; 

/•  mvcursar  -  moves  the  cursor  by  the  specified  location  in  the 
edit  window. 

*/ 

C 

updated isplay Cey  +  1 , ex+1 5 ; 
ewmoveCey , ex  5 ; 
ewtouchC ) ; 
ewrefreshC ) ; 

5 


void 

ederrorCn) 
int  n; 

/*  ederror  -  editor  error  routine. 

*/ 

C 

int  ey.ex; 

euigetyxCey , ex  5 ; 
switch  Cn)  C 
case  1 : 

cmdprintC ”\007” )  ;  /*  just  ring  bell  •/ 

break ; 

default : 

cmdprintC ’’Editor  Error...  Incorrect  Command  . \007”  5  ; 
break ; 

mvcursorCey , ex 5  ; 


char 
get key  C ) 

/*  getkey  -  accepts  command  strings  From  the  edit  window  and 
translates  the  "termcap"  strings  For  arrow  keys. 

*/ 

C 

char  c; 

char  inputCS],  capCS),  *temp; 
int  leng; 

iF  CCCc  -  ewgetchO)  <  ’  ’)  !!  Cc  >  ’~’))  C 

iF  C c  —  ESC)  C 
inputCOl  -  c; 
tgetstr C ”kd” , cap) ; 
leng  -  strlenCcap)  -  1; 
temp  -  SinputClH; 

while  Cleng  >  0  )  C*temp-*-+  ■  ewgetchC);  leng — ;} 

•temp  -  NULL; 

iF  CstrcmpCcap, input)  —  0)  c  -  DOWN; 
else  C 

tgetstrC ”ku” , cap) ; 

iF  CstrcmpCcap, input)  —  0)  c  -  UPLN; 
else  C 

tgetstrC ”kd” , cap) ; 

iF  CstrcmpCcap, input )  --  0)  c  -  LEFT; 
else  C 

tgetstrC ”kr” , cap) ; 

iF  CstrcmpCcap, input )  —  0)  c  ■  RIGHT; 
else  c  -  NULL; 

} 

returnCc) ; 


/ 


/ 


char 

motionC ) 

/*  motion  -  moves  the  cursor  in  the  edit  window  in  response  to 
valid  motion  commands. 

*/ 

C 

bool  ismotion,  error; 
char  c; 
int  ey,ex; 


ismotion  -  TRUE;  error  -  FALSE; 
ewgetyx(ey , ex) ; 
cmdclear C ) ; 

/*  assume  uie  are  in  a  valid  position  */ 

/*  check  new  position  only  */ 
mvcursor  ( ey , ex ) ; 
switch  (c  -  getkeyO)  C 

case  UPLN:  if  (! (error  -  ! cklocy Cey-1 ) ) 3  C 

ey  — ; 

ex  -  xpos ; 

if  (ex  <  length(ey))  ex  ■  length(ey); 
break ; 

case  DOWN:  if  (! (error  -  ! cklocy (ey  +  1 ) ) )  ( 

ey*-+; 

ex  -  xpos ; 

if  (ex  <  length(ey))  ex  -  length(ey); 


case 

BLANK: 

break ; 

case 

RIGHT: 

case 

TAB: 

if  ( ! (error 

case 

LEFT: 

xpos  -  ++ex 

break ; 

if  ( ! (error 

case 

CR: 

xpos  “  --ex 

break ; 

if  ( ! (error 

default : 

6y++ ; 

xpos  ■  ex  ■ 
break ; 

ismotion  “  ] 

> 

if  C error j  ederror(l); 

if  (ismotion  ! !  error)  c  -  NULL; 

else  xpos  “  ex; 

mvcursor(ey , ex)  ; 

return(c)  ; 

} 
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void 

motioninit C ) 

/*  motioninit  -  initializes  the  editor  motion  position  at  the 
time  of  entry  to  the  editor. 

*/ 

C 

xpas  -  0; 
mvcursorCO , 0) ; 
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Statistical  Analysis  Environment 
EDITOR 

File:  ed. motion. c 

Original:  7  April  198S  -  K  N  Cole 

Current:  15  September  1986  -  K  N  Cole 

Contains  Modules: 
motion 
getkey 
motioninit 
mvcursor 


♦♦include  <stdio.h> 
♦♦include  <curses.b> 
♦♦include  ’’sae.h” 
♦♦include  ’’window. h” 


extern  WINDOW  ‘editor; 

int  xpos;  /•  horizontal  position  storage  */ 


!  void 

I  mvcursor ( ey , ex) 

int  ey.ex; 

-  /*  mvcursor  -  moves  the  cursor  by  the  specified  location  in  the 

;  edit  window. 

'  */ 

► 

)  < 

|  updatedisplay Cey+1 , ex+1) ; 

)  ewmoveCey , ex) ; 

;•  ewtouchO ; 

ewrefreshO; 

♦ 

I 


< 

i 


char 

getkey C  ) 

/•  getkey  -  accepts  command  strings  from  the  adit  window  and 
translates  the  ’’termcap”  strings  For  arrow  keys. 

*/ 

C 

char  c; 

char  inputCSl,  capC53,  *temp; 
int  long; 

if  CCCc  -  ewgetchC ) )  <•')::  Cc  >  ’*'■))  C 
if  Cc  —  ESC)  C 
inputCOl  -  c; 
tgetstrC ”kd” , cap) ; 
leng  -  strlemcap)  -  1; 
temp  -  &inputC13; 

while  Cleng  >  0  )  C*temp++  -  ewgetchC);  leng — ;} 

•temp  ■  NULL; 

if  CstrcmpCcap, input)  —  0)  c  -  DOWN; 
else  C 

tgetstrC ”ku” , cap) ; 

if  CstrcmpCcap, input )  0)  c  ■  UPLN; 

else  t 

tgetstrC ”kd” , cap) ; 

if  CstrcmpCcap , input )  ""  0)  c  ”  LEFT; 
else  C 

tgetstrC ”kr” , cap) ; 

if  CstrcmpCcap , input)  —  0)  c  •  FIGHT; 
else  c  *  NULL; 

> 

y 

returnCc) ; 

} 


char 
motionC  5 

/*  motion  -  moves  the  cursor  in  the  edit  window  in  response  to 
valid  motion  commands. 

*/ 

C 

bool  ismotion,  error; 
char  c; 
int  ey.ex; 

ismotion  •*  TRUE;  error  •  FALSE; 
ewgetyxCey , ex) ; 

/*  assume  we  are  in  a  valid  position  */ 

/*  check  new  position  only  */ 
mvcursorCey , ex) ; 
switch  Cc  -  getkeyO)  C 

case  UPLN:  if  C! (error  -  ! cklocy Cey-1 ) ) 5  C 

ey — ; 

ex  -  xpos; 

if  Cex  <  lengthCey})  ex  m  lengthCey); 

> 

break ; 

case  DOWN :  if  CICerror  -  ! cklocy Cey  +  1 )  C 

ey++; 

ex  -  xpos; 

if  Cex  <  lengthCey ) )  ex  -  lengthCey); 


case 

case 

case 

BLANK: 

RIGHT: 

TAB: 

break; 

if  CICerror  - 

!  cklocxCey  ,  ex+1 5  ;>  } 

case 

LEFT: 

xpos  •  ++ex; 
break ; 

if  C ! Cerror  ” 

!  cklocxCey  ,  ex-1 }  )  :> 

case 

CR: 

xpos  “  — ex; 
break ; 

if  C ! C error  - 

!  cklocy  Cey-*-l  5)5 

default : 

ey-*-*-; 

xpos  “  ex  -  0; 
break ; 

ismotion  “  FALSE;  xpos  -  ex;  break; 

1 

if  C error:'  ederrorCl?; 

if  C ismotion  ! I  error )  c  -  NULL; 

else  xpos  “  ex; 

mvcursorCey , ex) ; 

returnCc? ; 


void 

motioninitC ) 

/•  motioninit  -  initializes  the  editor  motion  position  at  the 
time  of  entry  to  the  editor. 

*/ 

< 

xpos  “  0; 
mvcursorCO , 0) ; 


mm 


Statistical  Analysis  Environment 
EDITOR 


** 

mm 

mm 


File:  ed. table. c 

Original:  29  April  19BB  -  K  N  Cole 
Current:  17  September  1986  -  K  N  Cole 


Contains  nodules: 
cklocy 
cklocx 
length 
tabnewline 
tabdeleteline 
lastline 
inittable 
writetext 
readtext 
tableread 
tablewrite 
clearcompile 
compileall 
compileline 
statcode 


** 
»• 
*• 
** 
** 
*» 
*  * 


mm 

mm 

mm 

mm 

mm 

mm 

mm 

*» 

** 

»• 

»*  / 


♦♦include  <stdia.h> 
#include  <curses.h> 
♦♦include  ”sae.h” 
♦♦include  ’’status. h” 
♦♦include  ’’window. h” 


extern  WINDOW  ^editor; 
extern  void  cpresetO  , 
extern  int  cplineO; 


mvcursorO,  edorrorC)  ; 


typedef  struct  lineref 
C 

char  “text; 
int  length; 
int  status; 
int  estate; 

1  linotype; 


/*  pointer  to  text  of  the  line  */ 

/*  length  of  line  */ 

/*  compiler  status  of  the  line  */ 

/*  state  of  the  compiler  after  checking  •/ 


linetype  tablestoreCEDLINESl ; 
linetype  *edtableCEDLINESD ; 
int  lastln,  erret; 
char  temptextCnAXLINE+13 ; 
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boolean 
cklocyCey ) 
int  ay; 

/*  cklocy  -  verifies  the  given  line  location  Cey)  in  the 
edit  window. 

*/ 

C 

boolean  valid; 

valid  •  (Cey  >■  0)  &&  Cey  <  lasting); 
returnC valid) ; 

/••»«•»*••••••*••••••**»•*•••••**••••*••»*»»••»•»*•••••*•/ 

boolean 
cklocxCey , ex) 
int  ey,ex; 

/*  cklocx  -  verifies  the  given  column  location  Cex)  on  the 
line  Cey)  in  the  edit  window. 

*/ 

C 

boolean  valid; 

valid  -  cklocyCey); 
if  (valid) 

valid  •  CCex  >-  0)  &&  CCex+1)  <-  edtableCeyl-^  length) ) ; 
returnC valid) ; 

int 

lengthCey ) 
int  ey; 

/*  length  -  returns  the  current  length  of  line  ’ey’. 

*/ 

C 

returnCedtableCey ]-> length) ; 

1 


void 

tabnew line Cey , s3 
int  ay; 
char  *a; 

/*  tabnewline  -  creates  a  new  line  in  the  table  at  the  screen 

location  given  by  (By}.  The  text  is  taken  From  the  string 
pointed  to  by  Cs3 . 

*/ 

i 

int  ct; 

linetype  *py; 

extern  void  writetextO; 

if  (Clastln  <  EDLINES3  &&  Cey  <-  lasting)  C 
if  Cey  <  lastln3  C 

py  -  edtableC lasting ; 
for  (ct  -  lastln;  ct  >  ey;  ct — 3 
edtableCctl  -  edtableCct-13 ; 
edtableCey3  -  py; 
ewinsertlnCey 5 ; 

3 

writetextCey ,  s3 ; 
lastln  -  lastln  +  1; 

3 

3 

void 

tabdeletel ineCey  3 
int  ey; 

/*  tabdeleteline  -  deletes  the  line  at  location  Cey 3  From 
the  file. 

•/ 

c 

int  ct; 
linetype  *py ; 

if  C  Cey  >-  03  &8  Cey  <  lastln33  C 
py  -  adtableCeyD; 

For  Cct  -  ey;  ct  <  lastln-1;  ct++3  C 
edtableCct3  ■  edtableCct+13 ; 

3 

edtableC lastln-13  -  py ; 


cfreeCpy-> text  3 ; 
py->text  “  NULL; 
py->cstate  -  0; 
py-> length  -  0; 
py->status  -  NONE; 
lastln  -  lastln-1; 
3 
3 
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int 

lastlmeC ) 

C 

returnC lastln)  ; 
} 


void 

inittableC ) 

/*  inittable  -  initializes  the  indicators  of  the  amount  of  text 
in  the  window. 


int  ey; 
lastln  -  0; 

for  Cey  “0;  ey  <  EDLINES;  ey+-0  C 
ewaddchCey , 0, NOLINE) ; 
edtableCey]  -  fitablestoreCey D ; 
edtableCeyD-> text  -  NULL; 
edtableCey]->cstate  -  0; 
edtableCey]->length  -  0; 
edtableCey D->status  -  NONE; 


F-48 


W' 


a. 


/ 


/ 


void 

writetext Cey , s) 
int  ey; 
char  *s; 

/•  writetext  -  replaces  the  current  line  Cey)  text  with  the  new 
string  Cs)  . 

*/ 

C 

linetype  *py ; 
boolean  space; 

if  CCey  >-  0)  S8  Cey  <-  lasting  C 
py  -  edtableCey ] ; 
if  Cpy->text)  space  ■  TRUE; 
else  C 

if  Cpy->text  “  Cchar  *5  callocCMAXLINE , sizeof Cchar ) ) ) 
space  “  TRUE; 
else  space  -  FALSE; 

ewmoveCey , 0? ; 
ewclrtoeol C  ) ; 
if  Cspace)  C 
if  C s )  C 

strncpy  Cpy-> text , s , MAXL INE) ; 
py-> length  -  strlenCpy->text) ; 
wprintwCeditor ,  py->text); 

> 

else  C 

py->tBxtC03  “  NULL; 
py-> length  -  0; 

else  printfC”***  Unable  to  allocate  memory  for  ’text’  ***”); 

char  * 
read  text  Cey  ) 
int  ey; 

/*  readtext  -  returns  a  pointer  to  the  text  referenced  by 
the  screen  position  line  Cey). 

*/ 

C 

char  *s; 

if  CCey  >“  0)  86  Cey  <  lastln))  s  -  edtableCey3->text ; 
else  s  -  NULL; 

returnCs) ; 

y 
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void 

tablereadCfp,  ey ) 

FILE  *fp; 
int  ay; 

/*  tableread  -  read  file  into  the  editor  starting  at 
screen  line  Cey). 

*/ 

C 

if  CCey  >“  0)  SS  Cey  <-  lastln))  C 

while  Cf getsC temptext ,  MAXLINE,  fp)  8&  Clastln  <  EDLINES)) 
tabnewlineCey++,  temptext); 

/*******•«******•********•*******************************/ 

void 

tablewriteCf p) 

FILE  *fp; 

/•  tablewrite  -  writes  the  contents  of  the  edit  table  out 
to  the  file  referenced  by  Cfp). 

»/ 

t 

int  ey; 

for  Cey  -  0;  ey  <  lastln;  ey++)  C 
f putsCedtable[Ieyl->text ,  fp); 

1 

1 


void 

clearcompileC  ) 

/*  clearcompile  -  clears  the  compiler  status  characters 


from  the  screen . 

*/ 

C 

int  ey; 
if  Clastln) 

for  Cey  “0;  ey  <  lastln;  ey*"*-)  C 
ewaddchCey , STATCOL , BLANK) ; 
edtableCey3->status  “  NONE; 


int 

compileall C ) 

/•  compileall  -  compile  all  the  lines  currently  in  the  editor 

•/ 

C 

int  ey,  stat,  state,  sy ,  sx; 

eugetyxCsy , sx) ;  /*  save  cursor  location  */ 

errct  -  0;  state  *  0; 
cpresetC ) ; 
if  Clastln) 

for  Cey  “0;  ey  <  lastln;  ey++)  C 

stat  "  cplineCedtableCey3-> text ,  Sstate); 
if  Cstat  !m  UALID)  errct++; 
edtableCeyD->status  -  stat; 
edtableCeyD->cstate  -  state; 
switch  Cstat)  C 

case  UALID:  ewaddchCey  ,  STATCOL,  UALIDSTAT)  ;  break; 

case  PARTULD:  ewaddchCey , STATCOL , PARTSTAT) ;  break; 

case  UNCKD : 

case  NONE:  ewaddchCey , STATCOL , BLANK) ;  break; 

default:  euiaddchCey,  STATCOL,  ERRST  AT)  ; 

)  ) 

mvcursorCsy , sx) ;  /*  reset  cursor  •/ 

return C errct) ; 

> 

/*******************-*-*—***--******-**—***-****—•-*-* 

void 

compilelineCey ) 
int  ey; 

C 

int  ty ,  stat,  state; 

if  Cey  >  0)  C 
ty  -  ey-1; 

while  CCty  >“  0)  &&  CedtableCty U->status  !“  UALID))  ty — ; 
ty  -  ty  +1; 

else  ty  -  ey; 

for  C;  ty  <■  ey;  ty++)  C 

stat  -  cplineCedtable[ty)-> text ,  Sstate); 
edtableC tyU->status  *  stat; 
edtableC tyD->cstate  “  state; 
switch  Cstat)  ( 

case  UALID:  ewaddchCty , STATCOL, UALIDSTAT) ;  break; 

case  PARTULD:  ewaddchCty , STATCOL , PARTSTAT) ;  break; 

case  UNCKD: 

case  NONE:  ewaddchCty , STATCOL , BLANK) ;  break; 

default:  ewaddchCty , STATCOL, ERRSTAT) ; 

)  }  ) 


' 


int 

statcodeCey ) 
int  ey; 

/•  statcade  -  returns  the  status  code  for  the  line  Cey). 


int  stat; 

if  CCey  >-  05  &S  Cey  <  lastln))  stat  -  edtableCeyD->status ; 
else  C 

stat  ■  NONE; 
ederror C 1 5  j 

returnCstat 5 ; 

> 
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Statistical  Analysis  Environment 
PAPSER  STATUS 

File.-  status. h 

Original:  S9  April  1S0B  -  K  N  Cole 
Current:  15  September  1906  -  K  N  Cole 


♦♦define 
♦♦define 
#def ine 
#def  ine 
#def ine 
♦♦define 
♦♦def  ine 
♦♦def  ine 
#def  ine 
♦♦define 
#def  ine 
#def  me 
#def  me 
♦♦def  me 
#def  me 
♦♦define 
#def  ine 
♦♦def  me 
♦♦def  ine 
#def  me 
#def  me 
♦♦def  me 
♦♦def  ine 


MONE 

UMCKD 

UAL  10 

PAPTULD 

EPPOP 

INULDCHAP 

EXFE 

EXSL 

EX  CP 

EXS 

EXA 

EXE 

EX  I 

EXTL 

EXF 

EXE  A 

EX  IP 

EXL 

EXP 

EXC 

INULONUn 
INULDFN 
I UULOUJD 


♦♦define  MAXERPOR 

♦♦define  STATCOL 

♦♦define  UALIDSTAT 
♦♦define  PART5TAT 
♦♦define  ERRSTAT 


0 

/* 

no  status 

*/ 

1 

/  * 

unchecked  line 

•/ 

E 

/* 

valid  line 

*/ 

3 

/'  * 

valid  incomplete  line 

*/ 

4 

/* 

non-specific  error 

*  / 

5 

/’  » 

invalid  character 

*/ 

6 

/* 

expected  filename  or  ENUIRONflENT 

’«►  / 

~i 

/  * 

expected  semicolon  or  left  Daren*/ 

0 

/  m 

expected  comma  or  right  paren 

/ 

9 

/  * 

expected  semicolon 

*/ 

10 

/  * 

expected  argument 

*  / 

11 

/■  * 

expected  equal  sign 

*/ 

IS 

/  * 

expected  integer 

*  / 

13 

/'  m 

expected  TABLE  or  LPT 

*/ 

14 

/  * 

expected  fraction 

*  / 

15 

/•  * 

expected  EXACT  or  ASYI1T0TIC 

*/ 

16 

/  m 

expected  integer  or  RANGE 

m  / 

17 

/'  4* 

expected  left  Daren 

*/ 

10 

/* 

expected  right  paren 

m  / 

19 

/  m 

expected  comma 

*/ 

SO 

/* 

invalid  number 

m  / 

El 

/•  * 

invalid  file  name 

+  / 

SS 

/  » 

invalid  word  in  text 

+  / 

S3 

/  * 

size  of  error  tabble 

+  / 

/  * 

column  to  display  status 

m  ■ 

/  * 

indicates  a  valid  statement 

•/ 

’  -  ' 

/  m 

indicates  a  partial  statement 

m  , 

’  E  ’ 

/  m 

indicates  an  error 

*/ 
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mm 

mm 

mm 

mm 

TOKEN 

DEFINITIONS 

mm 

mm 

mm 

File.-  tokens. h 

mm 

mm 

Original:  S3  April  1SBB  -  K  N  Cole 

mm 

mm 

mm 

mmm 

Current:  G  October 

19BG  -  K  N  Cole 

mm 

mm 

•def ine  MAXTOKEN 


'*  Tokens  */ 


•define 
•def ine 
•def ine 
•define 
•define 
•define 
•def ine 
•define 
•define 
•def ine 


EOL 

FRACTION 

INTEGER 

FILENAME 

COMMA 

SEMI COL 

EQUALS 

LPAREN 

RPAREN 

RESUD 


end  of  line  or  comment  */ 
fraction  value  Creal)  */ 
integer  value  */ 
program  file  name  */ 

*  / 


reserved  word  */ 


•define  MAXRESUD 


/*  Reserved  Uiords 


•def ine 
•define 
•define 
•def ine 
•def ine 
•def ine 
•def ine 
•def ine 
•define 
•define 
•def ine 


ALPHA 

ASYMTOTIC 

ENUIRONMENT 

EXACT 

FAILURES 

LRT 

MAXTERMS 

METHOD 

SAMPLES 

TABLE 

RANGE 


•define  LANGSI2E 


1 MAXRESUD+ 1) 
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Statistical  Analysis  Environment 
9AE  COMPILER 

File:  sae .compile .c 

Original:  ?  April  19BB  -  K  N  Cole 

Current:  9  October  19BB  -  K  N  Cole 

Contains  Modules: 
cpline 
compile 


#include  <stdio.h> 

^include  <ctype.h> 

^include  ’’sae.h” 

^include  ’’status. h” 

^include  ’’tokens. h” 

extern  void  cpresetO,  setoutputonO  ,  tokenresetO; 
extern  int  cparseO ,  tokenO; 
extern  char  “errtextO; 

char  slineCMAXLINED ; 

int 

cplineC3, state D 
char  “s; 
int  “state; 

/*  cpline  -  Compile  a  line  Cs} . 

Returns  a  status  indicator  from  the  list  in  Cstatus.h). 

Modifies  the  state  variable  to  show  the  new  state  of  the  compiler. 

*/ 

C 

unsigned  status; 
int  t,  v; 
char  “sptr; 

status  -  UAL ID; 
sptr  ■  S; 

while  CCstatus  —  UALID?  SR  Ct  “  tokenCSsptr , Sv) 55  C 
if  Ct  <  0)  status  «•  -t; 
else  status  •  cparseCstate ,  t,  v?; 

> 

if  CCstatus  UALIDT'  SS  “stated  status  «■  PARTULD; 
else  if  Cstatus  !“  UALID?  “state  “  0; 

returnCstatus j ; 

1 


void 

compile Carg) 
char  *arg; 

£ 

FILE  *fp; 

int  errct,  lnct,  state; 
unsigned  ecode; 
char  *c; 

printf  C’’SAE  Compiler,  Uersion  0.2\n\n”); 

errct  ”  0; 
lnct  -  0; 
state  ”  0; 

/*  prepare  the  filename  */ 
c  -  arg; 

while  C*c  &&  !  isspaceC  *c )  )  c-*--*-; 

*c  -  NULL;  /*  place  a  null  after  the  filename  */ 

if  C*arg)  £ 

if  Cfp  ■  fapenCarg,  ”r”))  £  /*  open  the  file  *■*/ 

printf  £ ”\nCompiling  "<s:  \n” ,arg); 
cpresetO;  tokenresetC  )  ; 
while  CfgetsCsline,  MAXLINE,  fp))  £ 

/*  compile  each  line  as  it  is  read  »/ 

lnct -*--*•; 

ecode  -  cplineCsline, Sstate) ; 

if  CC ecode  —  UAL  ID)  !!  C ecode  —  PARTULD))  £ 
printfC’’*4d  *4s”,lnct,  sline); 

else  £ 

printfC”*4d  \s  **  "<s\n”,  lnct,  sline,  errtextC ecode) ) ; 
errct-*"*- s 
) 

> 

printf C ”\nSummary :  *4d  lines  *4d  error\n”,  lnct,  errct); 

if  CC errct  ■■  0)  S&  estate  ■■  0))  £ 
rewindCf p) ; 

cpresetO;  tokenresetC); 
setoutputonC ) ; 

state  ”  0;  /*  re-compile  with  output  */ 

while  CfgetsCsline,  MAXLINE,  fp)) 
ecode  “  cplineCsline , fistate) ; 

) 

fcloseCfp) ; 

else  printf  C ’’Compiler :  Cannot  open  input  file.\n”); 
else  printf  C ’’Compiler :  Mo  input  file.\n”); 


wwv 
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mm 
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Environment 

mm 

mm 

SAE 

COMPILER 

mm 

mm 

mm 

** 

File:  cp. compile. c 

mm 

mm 

Original:  ?  April 

1986  -  K  N 

Cole 

mm 

mm 

Current:  3  October 

1986  -  K  N 

Cole 

mm 

mm 

mm 

mm 

Contains  Modules: 

mm 

mm 

cparse 

mm 

mm 

setoutputoff 

mm 

** 

setoutputon 

mm 

mm 

cpreset 

mm 

mm 

mm 

/ 


#include  <stdio.h> 

#include  <ctype.h> 

^include  ”sae.h” 
tinclude  ’’status. h” 

#include  ’’tokens. h” 

extern  int  intsymbolO; 
extern  float  f laatsymbolC 3 ; 
extern  char  *wordsymbol O ; 

/*  globals  for  info  storage  */ 
boolean  setdefenv  -  FALSE, 
outputon  -  FALSE, 
envflag,  sflag; 
char  *filename,  cmdlineCSOD; 
int  stmttype; 

/*  environment  values  */ 
int  mxterms,  method; 

/*  table  and  lrt  values  */ 
int  alphact; 

int  tsamples,  tmxsamples,  tincsamples, 
tfail,  tmxfail,  tincfail; 
float  talphaC33; 


✓ 


/ 


int 

cparseC state ,  token,  v) 
int  "state,  token,  v; 

/*  cparse  -  determine  the  next  state  of  the  compiler  given 
the  input  estate)  and  the  next  Ctoken). 

Returns  a  status  value  Csee  status. h)  . 

*/ 

C 

int  status,  i; 

FILE  *fp; 

status  ■  UAL  ID; 
switch  C*state)  C 

case  0:  switch  Ctoken)  C 

case  RESUD:  if  Cv  —  ENUIRONMENT)  C 

if  Cenvflag)  status  »  EXTL; 
else  C 

stmttype  -  0; 

•state  “  1; 

) 

> 

else  status  ■  EXFE;  break; 
case  FILENAME:  *state  -  3; 
if  Cisetdefenv)  C 

mxterms  -  DEFflXIERMS;  method  -  DEFMETHOD; 

filename  *  uiordsgmbolCv) ; 
break; 

default:  status  -  EXFE; 

1  break; 

case  1:  switchCtoken)  C 

case  LPAREN:  *state  “  2;  break; 
case  SEMI COL:  *state  ■  0; 
setdefenv  -  TRUE; 

mxterms  -  DEFMXTERMS;  method  -  DEFMETHOD; 
envflag  -  TRUE; 
if  Coutputon)  £ 

if  CFp  -  f open C CPENUF I LE ,  "w”))  C 

fprintf Cfp, "#def ine  MAXTERMS\t’id\n” , mxterms) ; 
if  Cmethod  1) 

fprintf Cfp, ”#def ine  EXACT\t\tl\n") ; 
FcloseCfp) ; 

> 

break ; 

default:  status  -  EXSL; 

>  break; 

case  2:  if  C token  --  RESUD) 
switch  Cv)  £ 

case  METHOD:  "state  -  5;  break; 
case  MAXTERMS:  "state  ■  H;  break; 
default:  status  •  EXA; 

> 
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else  status  -  EXA; 
break ; 

case  3: 

case  4: 

case  5:  if  C token  —  EQUALS)  -state  -  -state  +  3; 
else  status  -  EXE; 
break; 

case  6:  if  (token  RESUD) 
switch  (v)  C 

case  TABLE:  -state  •  9;  stmttype  -  1; 
tsamples  -  DEFSAMFLES; 
tmxsamples  -  tsamples; 
tincsamples  “  1; 
tfail  -  tsamples  +  1; 
tmxfail  “  tfail; 
tincfail  ”  1; 
talphaCOl  -  DEFALPHA; 
alphact  -  1; 
break; 

case  LRT:  -state  ■  10;  stmttype  -  2; 
tsamples  ■  DEFSAfIPLES; 
alphact  -  0; 
break ; 

default:  status  •  EXTL; 

3 

else  status  •  EXTL; 
break; 

case  7 :  if  (token  —  INTEGER)  C 

mxterms  •  intsymbol (v) ; 

-state  -  11; 

3 

else  status  -  EX I; 
break ; 

case  8:  if  (token  —  RESUD)  C 

-state  -  11; 

if  (v  —  EXACT)  method  -  1; 

else  if  (v  —  ASYflTOTIC)  method  -  0; 

else  status  -  EXEA; 

3 

else  status  -  EXEA; 
break; 

case  9:  switch (token)  C 

case  LPAREN:  -state  ■  12;  break; 
case  SEfllCOL:  -state  ■  0; 
if  (outputon)  C 
if  (lenvflag)  i 
envflag  -  TRUE; 

system(”cp  Nath/env.sav  Math/env . h” ) ; 

3 

if  (fp  -  fopen(CPTABLEFILE,  "w”))  C 

fprintf  (fp,  ”#def  ine  PINIT\t*;d\n”  ,  tsamples)  ; 
fprintf (fp, "#def ine  PMAX\t*4d\n” , tsamples) ; 
fprintf (fp, ”#def ine  PINC'.tlNn”) ; 
fprintf  (fp,  '’^define  RINIT' f;d\n” ,  tfail ) ; 
fprintf  (fp,  ”#def  ine  RMAX\t*4d\n”,  tfail ) ; 
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FprintFCfp,  ”#define  RINC\tl\n” ? ; 

FprintFCFp ,  ”#def ina  ALPHAl\t*44 . 3F\n”  ,  talphaCOD  ) 
FprintFCFp, ”#define  MAXALPHA\tl\n” ? ; 
fcloseCf p) ; 

> 

strcpy (cmdline, "make  -F  math. make  -s  table; 

mv  Math/table 

street C cmdline, Filename) ; 

IF  CforkO  --  0)  C 

systemCcmdline) ; 
axitC5 ; 

y 

break; 

default:  status  ~  EXSL; 

y  break; 

case  10:  iF  Ctoken  LPAREN?  “state  -  13; 
else  if  Ctoken  SEMICOL)  C 
•state  -  0; 
if  Coutputon?  C 
if  Clenvflag?  C 
envflag  ■  TRUE; 

systemC”cp  Math/env.sav  Math/env.h”?  ; 

y 

if  Cfp  -  f open C CPLRTF I LE ,  ’’w”??  C 

fprintf  Cfp,  ”#def  ine  MAXSAMPLES\t*4d\n"  ,  tsamples)  ; 
FcloseCf p? ; 

y 

strcpy Ccmdline,  ’’make  -f  math. make  -s  lrt; 

mv  Math/ lrt 

streat Ccmdline, f ilename) ; 
if  CforkC  ?  —  0)  C 

systemCcmdline) ; 
exitC  ? ; 

J 

y 

else  status  -  EXSL; 
break; 

case  11:  if  Ctoken  ■■  COMMA?  *state  •  2; 

else  if  Ctoken  RPAREN?  •state  -  26; 

else  status  ”  EXCR; 

break; 

case  12:  if  Ctoken  —  RESUD? 

switch  Cv)  £ 

case  FAILURES:  sflag  -  FALSE;  “state  ”  14;  break; 
case  SAMPLES:  sflag  •  TRUE;  “state  “  14;  break; 
case  ALPHA:  “state  ”  15;  break; 
default:  status  *  EXA; 

else  status  -  EXA; 
break ; 

case  13:  if  Ctoken  ■-  RESUD) 
switch  Cv)  C 

case  SAMPLES:  “state  -  16;  break; 


case  ALPHA:  “state  -  17;  break; 
default:  status  “  EXA; 

} 

else  status  ■  EXA; 
break; 


case 

14: 

case 

IS: 

case 

16: 

case 

17: 

if  (token  ■■  EQUALS)  “state 

else  status  ■  EXE; 

break; 

case 

18: 

if  (token  —  INTEGER)  C 
if  (sf lag)  C 

tsamples  “  intsymbol(v) ; 
tmxsamples  “  tsamples; 
tincsamples  -  1; 

else  C 

tfail  -  intsymbol ( v) ; 
tmxfail  •  tfail; 
tincfail  •  1; 

1 

•state  -  22; 

1 

else  if  ((token  —  RESUD)  &&  Cv  —  RANGE 5 )  *state 
else  status  ”  EXIR; 
brssk * 

case  19:  if  (token  —  FRACTION)  C 

talphaCO)  -  f loatsymbol(v) ; 
alphact  -  1; 

•state  -  22; 

> 

else  if  (token  —  LPAREN)  “state  -  24; 
else  status  ■  EXF ; 
break ; 

case  20:  if  (token  —  INTEGER)  C 

tsamples  -  intsymbol ( v) ; 

•state  “  25; 

else  status  •  EXI; 
break; 

case  21:  if  (token  —  FRACTION)  C 
alphact  ■  1; 

talphaCOl  -  f laatsymbol(v) ; 

•state  "  25; 

else  status  “  EXF; 
break; 

case  22:  if  (token  ■■  C0HMA)  “state  ■*  12; 

else  if  (token  —  RPAREN)  “state  -  25; 
else  status  -  EXCR; 
break ; 

case  23:  if  (token  —  LPAREN)  “state  “  27; 
else  status  -  EXL; 
break ; 


-  23; 
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case  24:  if  Ctoken  “"  FRACTION)  C 

talphaC03  -  f loatsymbolC v) ; 
alphact  -  lj 
•state  -  20; 

> 

else  status  -  EXF , 
break; 

case  25:  if  Ctcken  --  COMMA)  *state  -  13; 

else  if  Ctoken  —  RPAREN)  •state  -  26; 

else  status  -  EXCR; 

break; 

case  26:  if  Ctoken  ““  SEMI COL)  C 
•state  ”  0; 

if  Cstmttype  ““  0)  C  /*  environment  */ 

envflag  “  TRUE; 
if  Coutputon)  C 

if  Cfp  -  fopenCCPENUFILE,  ”uj”))  C 

f  printf  Cf  p ,  ”#def  ine  NUM\t*id\n’’  ,  mx terms)  ; 
if  C method  —  1) 

fprintf Cfp, ”#def ine  EXACT\tl\n” ) ; 
fcloseCf p) ; 

> 

else  if  Cstmttype  ““1)C  /•  table  program  •/ 

if  Coutputon)  C 
if  C! envflag)  C 
envflag  “  TRUE; 

systemC’cp  Math/env.sav  Math/env  .h”)  ; 

> 

if  Cfp  -  f open C CPTABLEF I LE ,  ”iu”))  C 

fprintf  Cfp,  ”#define  PINIT\t*sd\n” ,  tsamples)  ; 
fprintf  Cfp,  ”#define  PMAX\t’<d\n”  ,  tmxsamples)  ; 
fprintf  Cfp,  ”#def ine  PINC\t?4d\n”  ,  tincsamples)  ; 
fprintf  Cfp,  ”#define  RINIT\t’4d\n”  ,  tfail)  ; 
fprintf  Cfp ,  ”#def  ine  RMAX\t*d\n”  ,  tmxfail )  ; 
fprintf  Cfp,  ”#define  RINC\t?sd\n” ,  tincfail) ; 
for  Ci  “  0;  i  <  alphact;  i++) 

fprintf  Cfp,  ”#def ine  ALPHA’-sldXtVi  .  3f \n”  , 

i  +  1 , talphaCiD  )  ; 

fprintfCfp,  ”#define  MAXALPHA\t’4d\n”  ,  alphact )  ; 
fcloseCf p) ; 

strcpyCcmdline, ’’make  -f  math. make  -s  table; 

mv  Math/table  ”); 

s treat Ccmdline , f ilename)  ; 
if  CforkC )  —  0)  C 
systemCcmdline) ; 
exitC ) ; 

> 

) 

) 

else  if  Cstmttype  ““  2)  C  /•  lrt  program  •/ 

if  Coutputon)  C 
if  C! envflag)  C 


envflag  “  TRUE; 

systemC”cp  Nath/env . sav  flath/env  .  h”  )  ; 

if  Cfp  -  FopenCCPLRTFILE,  ”w”))  C 

fprintf Cfp, ”#define  NAXSAnPLES\t^d\n” , tsamples) ; 
if  Calphact  —  1) 

fprintfCfp, ”#def ine  ALPHA\t\4 . 3f \n” , talphaCOD ) 
FcloseCf p) ; 

strcpyCcmdline, "make  -f  math. make  -s  lrt; 

mv  flath/lrt  ”); 

s treat Ccmdline , f ilename) ; 
if  CforkO  —  0)  C 

systemCcmdline) ; 
exito  ; 

} 

> 

else  status  -  ERROR; 

> 

else  status  ■  EXS; 
break; 

case  27:  if  Ctaken  —  INTEGER)  C 
if  Csflag)  C 

tsamples  *  intsymbolCv); 
tmxsamples  ■  tsamples; 
tincsamples  -  1; 

J 

else  t 

tfail  *  intsymbolCv); 
tmxfail  ■  tfail; 
tincfail  -  1; 

•state  -  29; 

J 

else  status  ■  EX I; 
break ; 

case  28:  if  C token  COflNA)  *state  -  31; 

else  if  Ctoken  ■-  RPAREN)  *state  -  22; 

else  status  *  EXCR; 

break; 

case  29:  if  Ctaken  —  CONNA)  "state  -  30; 
else  status  -  EXC; 
break; 

case  30:  if  Ctoken  INTEGER)  C 

if  Csflag)  tmxsamples  -  intsymbolCv); 
else  tmxfail  »  intsymbolCv); 

•state  ~  32; 

> 

else  status  -  EXI; 
break ; 

case  31:  if  Ctoken  —  FRACTION)  C 

talphaCID  -  floatsymbol C v) ; 
alphact  -  2; 

•state  “  33; 


EXF; 


else  status  " 
break ; 

case  32:  if  (token  --  COMMA)  “state  -  34; 
else  if  (token  —  RPAREN)  C 

if  (sflag)  tincsamples  -  DEFINC; 
else  tincfail  -  DEFINC; 

•state  -  22; 

else  status  -  EXCR; 
break; 

case  33:  if  (token  --  COMMA)  “state  -  35; 

else  if  (token  -«■  RPAREN)  “state  -  22; 
else  status  -  EXCR; 
break ; 

case  34:  if  (token  —  INTEGER )  C 

if  (sflag)  tincsamples  -  intsymbol  ( v) ; 
else  tincfail  -  intsymbol ( v ) ; 

“state  -  36; 

y 

else  status  -  EX  I; 
break ; 

case  35:  if  (token  —  FRACTION)  C 

talphaC2H  •  f loatsymbol (v) ; 
alphact  -  3; 

•state  -  37; 

y 

else  status  -  EXF; 
break; 

case  36: 

case  39:  if  (token  —  RPAREN)  “state  -  22; 
else  status  -  EXR; 
break ; 

case  37:  if  (token  —  COMMA)  “state  -  38; 

else  if  (taken  ••  RPAREN)  “state  -  22; 
else  status  ”  EXCR; 
break ; 

case  30:  if  (token  —  FRACTION)  C 

talpha(3D  “  floatsymbol ( v ) ; 
alphact  -  4; 

“state  -  39; 

y 

else  status  “  EXF; 
break ; 

default:  status  -  ERROR; 

y 

return(status) ; 

y 
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void 

setoutputon  '  :• 

/•  setoutputon  -  enables  the  parser  to  generate  ’.h’  and 
'makefile'  commands. 

Opposite  of  ’  setoutputof  ft  I' ’  . 

•  / 

C 

outputon  -  TPuE ; 

) 

. . 


■■old 

setoutoutoff ' 

/•  setoutputof f  -  disables  the  parser  from  generation  of  output. 

Opoosite  of  ’ setoutputonC )  ’  . 

*/ 

Outputon  -  FALSE; 

} 


■cid 

cpreset1.  :■ 

/*  cpreset  -  resets  initializing  values  for  compiler. 

*  / 

t 

en-flag  “  FALSE; 
outputon  -  FALSE; 


mm 

Statistical  Analysis 

Environment 

** 

** 

SAE  COMPILER 

mm 

** 

mm 

** 

File:  cp. token. c 

mm 

Original:  7  April  19BB  -  K  N 

Cole 

mm 

mm 

Current:  15  October  1SBB  -  K 

N  Cole 

mm 

mm 

mm 

mm 

Contains  Modules: 

mm 

** 

readword 

mm 

** 

readnumber 

mm 

mm 

readfilename 

mm 

mm 

token 

mm 

mm 

tokenreset 

mm 

mm 

mm 

/ 


♦♦include  <stdio.h> 

♦♦include  <ctype.h> 

♦♦include  ”sae.h” 

♦♦include  ’’status. h” 

♦♦include  "tokens. h” 

struct  resvduiord  C 
char  *uiord; 
int  value; 

1 

langtableCLANGSIZEl  -  C 
”  AL  ’’ ,  ALPHA, 

’’ALPHA”,  ALPHA, 

”AS ” ,  ASYMTQTIC, 

’’ASYflTOTIC” ,  ASYMTQTIC , 
”EN”,  ENUIRONMENT, 

”ENU I RONMENT ” ,  ENUIRONMENT, 
"EX”,  EXACT, 

’’EXACT”,  EXACT, 

”FA” ,  FAILURES, 

"FAILURES”,  FAILURE5 , 

”LR" ,  LRT, 

”LRT” ,  LRT, 

”MA” ,  MAXTERMS, 

"MAXTERMS”,  MAXTERMS, 

”ME” ,  METHOD, 

"METHOD",  METHOD, 

”SA” ,  SAMPLES, 

"SAMPLES”,  SAMPLES, 

”TA” ,  TABLE, 

"TABLE”,  TABLE, 

”RA” ,  RANGE, 

"RANGE”,  RANGE 

>; 


typedef  struct  symref  C 
int  token; 
int  lvalue; 
float  rvalue; 
char  uordCMAXUJORDD ; 

1  symtype; 

symtype  symtableCttAXSYnBOLSD 
int  next symbol ; 


char 

topper Cc> 
char  c; 

C 

char  cc; 

if  C  Cc  >-  ’a’?  86  Cc  <-  ’z’))  cc  -  c  -  32; 
else  cc  ■  c; 
return Ccc) ; 

) 

/«•••••••••••••••••••••••••«•*••»*•••••**»*•••**«*••*•••*»*/ 

int 

readwordCsptr , v} 
char  ••sptr; 
int  *v ; 

/•  readword  -  reads  a  reserved  word  from  the  line  pointed  to 
bg  Csptr).  Returns  a  token  and  sets  Cv)  to  the  value  of 
the  reserved  word. 

•/ 

C 

int  n,  t; 
char  *w,  *s; 

For  Cn  -  0;  n  <  LANGS  1 2E ;  n+-0  C 
w  -  langtableCnD  .word; 
s  "  *sptr; 

while  C*u  68  CtopperC*s)  *w?)  Cs«-+;  w-*-*-;} 
if  C*w  ! !  isalphaC*s? )  t  “  -INYLDUD; 

else  C 

t  -  PESUD; 

•v  •  langtableCn] .value; 

while  C isalphaC**sptr) )  C*sptr)++; 

break ; 

> 

returnCt ) ; 


int 

readf ilenameCsptr ,  ns? 
char  **sptr; 
int  ns; 

/*  readf ilename  -  reads  a  file  name  from  the  line  pointed  to 
by  Csptr). 

*/ 

C 

char  *c,*w; 
int  t,ct; 

w  -  ++C*sptr}; 
c  ■  symtableCnsD . word; 
ct  -  0; 

while  C ! isspaceC*w?  £&  (C*w  ! -  ’ ”  ’ }  &&  isprintC*w) ))  C 
if  C++ct  —  MAXWORD)  break; 

*C++  “  *W++ ; 

> 

*C  -  NULL; 
if  •'.•w  —  *"  ’  )  C 
t  -  FILENAME; 

•sptr  -  ++w ; 

else  t  - INULDFN; 


returnC t) ; 


/ 


int 

tointCc) 
char  c; 

C 

int  v; 

if  CCc  >-  ’O’)  &a  Cc  <-  ’9’))  v  -  c  -’O’; 
else  v  “  NULL; 
return C v) ; 

1 


int 

readnumberCsptr ,  ns) 
char  **sptr; 
int  ns; 

C 

char  *c; 
int  t,  iv; 
float  rv,  dv; 


t  -  -INULDNUI1; 

c  -  *sptr;  iv  -  0;  rv  -  0.0;  dv  -  0.1; 

while  C*c  aa  isdigitC»c))  C 
iv  -  CIO  *  iv)  +  tointC*c); 

C++; 

1 

if  Civ  >  0)  t  -  INTEGER; 
if  C*c  —  ’ • ’ )  < 

C++; 

while  C*c  aa  isdigitC*c))  C 
rv  -  rv  +  CtointC*c)  •  dv); 
dv  ■  dv  /  10; 

C++; 

rv  -  C float)  iv  +  rv; 
if  Crv  >  0.0)  t  -  FRACTION; 

if  C*c  aa  ! isspaceC*c) ) 
switch  C*c)  C 
case  ’  C  ’ : 
case  ’  )  ’ ; 
case  ’ ;  ’ : 
case  break; 

default;  t  -  -INULDNUfl; 

if  Ct  !-  -INULDNUM)  C 

symtableCnsD .rvalue  -  rv; 
symtableCnsl . ivalue  -  iv; 

*sptr  ”  c; 

returnC t ) ; 
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int 

token Csptr , v) 
char  **sptr; 
int  *v; 

/*  token  -  reads  the  string  pointed  to  by  Csptr)  and 
returns  tokens  basBd  on  the  language  C tokens. h) . 

The  value  C*v)  is  set  to  a  reference  to  the  specific 
reserved  word  or  an  index  to  the  symbol  table  CsymtableC D ) . 

•/ 

C 

int  tt,  n; 

*v  -  0;  tt  “  0; 

while  C**sptr  &&  isspaceC**sptr) )  C*sptr)++;  /*  skip  spaces  */ 

if  Cnextsymbol  ■■  MAXSYMBOLS)  nextsymbol  ■  0; 

if  C**sptr  ~  ””)  C  /*  read  filename  */ 

if  CCtt  -  readfilenameCsptr,  nextsymbol))  ■■  FILENAME) 

*v  “  nextsymbol++ ; 

J 

else  if  C i3digit C**sptr)  !!  C**sptr  •*“  ’.’))  C  /*  read  number  */ 
if  CCtt  -  readnumberCsptr ,  nextsymbol))  !■  -INULDNUM) 

•v  -  nextsymbol-*--*-; 

> 

else  if  C isalphaC**sptr) )  C  /•  read  reserved  word  */ 

tt  -  readword Csptr,  v); 

else  switch  C*C*sptr  )•*■■*•)  C 

case  NULL:  tt  -  EOL;  break; 

case  if  C**sptr  —  ’-’)  tt  -  EDL; 

else  tt  - INULDCHAR; 

break; 

case  tt  ■  SEMICOL;  break; 

case  ’  C’:  tt  -  LPAREN;  break; 

case  ’)’:  tt  “  PPAREN;  break; 

case  tt  ■  COMMA;  break; 

case  tt  •  EQUALS;  break; 

default:  tt  ■*  -INULDCHAR;  break; 

y 

returnCtt ) ; 

y 
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int 

intaymbolCv) 
int  v; 

C 

int  vv; 

if  CCv  >-  0)  66  Cv  <-  nextaymbol  :• )  vv  -  aymtableCvl . lvalue; 
elae  vv  -  0; 

return  C  w)  ; 


Float 

FloataymbolCv) 
int  v; 

C 

float  vv; 

if  CCv  >■  0)  66  Cv  <•  nextaymbol}}  vv  ■  aymtableCvl  .rvalue; 
elae  vv  -  0.0; 

return C vv} ; 

> 

char  • 

wordaymbolCv} 
int  V; 

C 

char  *w ; 

if  CCv  >-  0}  66  Cv  <•  nextaymbol  } }  vv  -  aymtableC  vD  .  word ; 
elae  vv  -  NULL; 

return C vv) ; 

> 

/••••••••••••••••••••••••••••••••••••••••»••••••• •••••••••• 

void 

tokenreaet C } 

/*  tokenreaet  -  initialize  the  aymbol  table  pointer  to  top 

*/ 

C 

nextaymbol  -  0; 

) 


.v3 

1 


:>s» 


mm 

mm 

mm 

Statistical 

Analysis 

Environment 

mm 

mm 

mm 

SAE 

COMPILER 

mm 

mm 

File:  cp.err.c 

mm 

mm 

Original:  ?  April  1986  -  K  N 

Cole 

m  *■ 

mm 

mm 

Current:  15  October 

1986  -  K 

N  Cole 

mm 

mm 

Contains  flodules: 

mm 

mm 

mm 

mmm 

errtext 

mm 

mm 

*mmmm / 

•include  <stdio.h> 

•  include  "status. h" 


/•  status  and  error  information 


char  *errtableC3  •  C 
»»  >» 

* 

'*  status  code 
/•  NONE 

*/ 
*  / 

"Not  compiled”, 

"UALID” , 

/  • 

/* 

UNCKD 

UALID 

•/ 
•  / 

"UALID 

- 

Incomplete  line”, 

/  • 

PARTULD 

*/ 

"ERROR 

- 

Non-spec if ic” , 

/* 

ERROR 

*  / 

"ERROP 

- 

Invalid  character”, 

/* 

INULDCHAR 

*/ 

"ERROR 

- 

Expected  filename  or  ENVIRONMENT”. 

/• 

EXFE 

*  / 

"ERROR 

- 

Expected  semicolon  or  left  paren” , 

/  m 

EXSL 

•/ 

"ERROR 

- 

Expected  comma  or  riyht  paren”, 

/* 

EXCR 

*/ 

"ERROR 

- 

Expected  semicolon  at  end  of  command” 

/• 

EXS 

•/ 

"ERROR 

- 

Expected  argument  ''see  language  help)' 

/  * 

» 

EXA 

•  / 

"ERROR 

— 

Expected  equal  sign", 

/• 

EXE 

*/ 

"ERROR 

- 

Expected  integer". 

/* 

EXI 

•  / 

"ERROR 

- 

Expected  TABLE  or  LRT”, 

/  * 

EXTL 

*/ 

"ERROR 

- 

Expected  fraction". 

/* 

EXF 

•  / 

"ERROR 

- 

Expected  EXACT  nr  ASYMTOTIC”, 

/m 

EXEA 

*/ 

"ERROR 

- 

Expected  integer  or  RANGE”, 

/• 

EXIR 

•/ 

"ERPOR 

- 

Expected  left  naren”, 

/* 

EXL 

*/ 

"ERROR 

- 

Expected  righ*.  paren”. 

/* 

EXR 

•  / 

"ERROR 

- 

Expected  comma”, 

;  m 

EXC 

*/ 

"ERROR 

- 

Invalid  inteysr  or  Fraction”, 

/* 

INULDNUM 

•  / 

"ERROR 

- 

Invalid  File  name". 

/  m 

INULDFN 

•/ 

"ERROR 

- 

Invalid  word  in  source” 

/* 

I NULDU1D 

*/ 

>; 


/ 


char  * 

arrtext Cecode) 
int  ecode; 

/*  errtext  -  returns  a  pointer  to  the  error  explainatian 
string  when  given  a  valid  compiler  error  code. 


char  *s; 


S  -  NULL; 

if  C Cecode  >-  0}  &6  Cecode  <  flAXERROR))  s  -  errtableCecodel ; 

returnCs) ; 

1 


File:  math. make 


#  • 

# 

#  * 

# 

#  * 

#  » 

#  * 

#  » 

#  * 

# 

OBJECTS  -  hath/Object/bernpoly . □  hath/Qbject/coef s .□  \ 
Math/Object/prab . o  hath/Ob ject/beta . a 

CFLAGS  “  -c  -0 

#  Source  files  for  modules 

table:  SCOBJECTS?  Math/table. c  hath/defs.h  hath/env.h  hath/table.h 
cc  -0  -o  flath/table  Math/table. c  SCOBJECTS?  -lm 
rm  table. o 

lrt:  SCOBJECTS?  hath/lrt. c  hath/Ob ject/compute . o  hath/defs.h  \ 
hath/env.h  hath/ lrt. h 

cc  -0  -o  hath/lrt  hath/lrt.c  hath/Object/compute . o  \ 

$'*  OBJECTS?  -lm 
rm  lrt.o 

hath/Ob ject/prob.o:  hath/prob.c  hath/defs.h 
cc  SCCFLAG5?  hath/prob.c 
mv  prob.o  riath/Object 

hath/Object/compute .o:  hath/compute .c  hath/defs.h  hath/lrt. h 
cc  SCCFLAGS?  hath/compute .c 
mv  compute. o  hath/ObJect 

hath/Ob ject/bernpaly . a :  hath/bernpoly . c  hath/defs.h 
cc  SCCFLAGS?  hath/bernpoly .c 
mv  bernpoly.o  hath/Object 

hath/Ob ject /coef s . o :  hath/coefs.c  hath/defs.h  hath/env.h 
cc  5CCFLAGS?  hath/coefs.c 
mv  coefs.o  hath/Object 

hath/Ob ject/beta .o:  hath/beta. c  hath/defs.h 
cc  SCCFLAGS?  hath/beta. c 
mv  beta.o  hath/Object 


Current:  25  October  1SSB 

Capt.  K  N  Cole 

hakefile  for  5AE  math  functions. 


# 

#  Makefile  v  3.0 

# 

#  Modified  v  3.0  2  Oct  SB 

#  Create  LRT  program  and  simplify  Table  program 

# 

#  Modified  v  2.0  25  Sep  06 

#  Combine  Asymt  and  Exact  directories 

# 

#  Original  v  1.0  26  Apr  B5 

#  Create  executable  program  from  original  source  code 

# 

#  **  ** 

#  **  by  Capt .  Kenneth  N.  Cole  ** 

#  **  OS-86  ** 

#  *»  ** 

#  **  for  Dr.  P.  Nagarsenker  mm 

#  ••  AFIT/ENC  ** 

#  *•  ** 

#  ****************************************** 

OBJECTS  “  Object/bernpoly .o  Object /coefs . o  \ 

Object/prob . o  Object/beta . o 

CFLAGS - c  -0 

#  Source  files  for  modules 

table:  SCOBJECTS J  table. c  defs.h  table. h 

cc  -0  -o  table  table. c  SCOBJECTS)  -lm 
rm  table. o 

lrt:  SCOBJECTS)  lrt.c  Object/computs . o  defs.h  lrt.h 

cc  -0  -o  lrt  lrt.c  Object/compute.o  SCOBJECTS."'  -lm 
rm  lrt.o 

Object/prob.o:  prob.c  defs.h 
cc  SCCFLAGS)  prob.c 
mv  prob.o  Object 

Object/compute.o:  compute. c  defs.h  lrt.h 
cc  SCCFLAGS)  compute. c 
mv  compute. o  Object 

Object/bernpoly  .o:  bernpoly.c  defs.h 
cc  SCCFLAGS)  bernpoly.c 
mv  bernpoly.o  Object 

Ob ject /coefs . o :  coefs. c  defs.h  env.h 
cc  SCCFLAGS)  coefs. c 
mv  coefs. o  Object 

Object 'beta .o:  beta.c  defs.h 
cc  SCCFLAGS!*  beta.c 
mv  beta.o  Object 
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y-j 


/ 


mm 

**  File  Name.-  defs.h 

»* 

**  Function:  This  File  contains  the  definitions 
**  necessary  for  the  table  and  percent 

**  programs . 

*» 

**  THIS  FILE  IS  INCLUDED  IN  EACH  PROGRAM  CODING. 

•» 

**  History:  9  May  8G  -  Original  by 

»*  Capt .  Kenneth  N.  Cole 


/ 


♦♦define  boolean 
♦♦define  TRUE 
♦♦define  FALSE 


/*  general  info  */ 

int 

1 

0 


♦♦define  LIflUAL 
♦♦define  NEWTONLIMIT 


0.0000001 

26  /*  attempts  to  reach  limit  •/ 


♦♦define  MAXANSWER 


SO  /*  string  storage  size  */ 


/ 


/ 


File  Name:  env.h 


(default  file.'1 


Function:  This  file  contains  the  definitions 
necessary  for  the  table  and  lrt 
program  environment  definition. 

THIS  FILE  IS  INCLUDED  IN  EACH  PROGRAM  CODING. 


History:  9  May  96  -  Original  by 

Capt.  Kenneth  N.  Cole 


♦♦define  EXACT 

1  Ml  IM 


1 

i  n 


/*  size  of  arrays  */ 


/ 


File  Name:  table. h 

Function:  This  file  contains  the  definitions 
necessary  for  the  table  program. 

History:  9  flay  86  -  Original  by 

Capt .  Kenneth  N.  Cole 


** 
** 
•  • 
•  » 
»* 
** 
** 
»* 
** 


#def ine 

RINIT 

4 

#def ine 

RINC1 

1 

♦♦define 

RINC2 

5 

♦♦define 

RSHIFT 

20 

#def ine 

RSET 

20 

#def ine 

RNAX 

100 

♦♦define 

P I N I T 

2 

#def ine 

PMAX 

6 

♦define 

ALPHA1 

0.1 

#def ine 

ALPHA2 

0.05 

♦♦define 

ALPHA3 

0.025 

♦♦define 

ALPHA4 

0.01 

/*  TABLE  program  info  */ 
/*  range  of  Failures  */ 
/*  start:  at  least  4  */ 


/*  range  of  number  of  samples 
'*  must  be  at  least  2  */ 


Kifdef  ALPHA4 

♦♦define  fiAXALPHA  4 

#else 

♦♦ifdef  ALPHA3 

♦♦define  MAXALPHA  3 

♦♦else 

♦♦ifdef  ALPHAS 

♦♦define  NAXALPHA  2 

♦♦else 

♦♦define  MAXALPHA  1 

♦♦end  if 

#endif 

#endif 


*  / 


/ 


File  Name:  Irt.h 

Function:  This  File  contains  the  definitions 
necessary  for  the  lrt  program. 

History:  9  Nay  86  -  Original  by 

Capt .  Kenneth  N.  Cole 


mm 

»» 

mm 

mm 

mm 

w* 

** 

mm 


((define  NINFAIL  S 

♦(define  NAXANSWER  80 

#def  me  NAXSANPLES  10 

♦♦define  ALPHA  0.01 


/*  LRT  program  info  */ 

/*  minimum  failures  per  sample  */ 
/*  length  of  user  response  */ 

/*  default  number  of  data  samples 
/*  default  level  of  significance 


m* 


*  * 


**  File  Name:  bernpoly.c 


**  Contains  Nodules:  com,  b,  bernpoly 

•  » 


**  Current:  26  Sep  S6 

•* 


»» 

** 

** 

*» 

»» 
»m  / 


tinclude  <math.h> 
#include  ’’defs.h” 


extern  int  arraysize; 
extern  long  float  barrayCl; 


/  ttl 

** 

mm 

mm 

Nodule  Name:  com 

mm 

mm 

Function 

:  Calculates  the  number  of  possible 

mm 

mm 

combinations 

mm 

mm 

Inputs : 

n,  i 

mm 

mm 

Outputs: 

com  Clang  Float) 

mm 

mm 

Calling 

Nodules:  b,  bernpoly 

mm 

mm 

** 

mm 

History : 

B  Nay  B5  -  Capt .  K.N.  Cole 

mm 

mm 

translated  From  pascal 

mm 

mm 

COriginal  by  Capt.  Nark  Amell) 

mm 

mm 

mm* 

mm 

p 

long  Float 

camCn , i ) 

int  n,i; 

) 

C 

long  Float  prod,  fn 

Fn  *  n; 

->  ■ 

Qy>, 

fi  -  i; 

f J  -  fn  -  Fi; 

prod  "  1.0: 
while  CFi  >  0.0) 

prod  -  prod  *  C fn  /  Fi); 
fn  “  f n  -  1.0; 

Fi  -  f i  -  1.0; 

> 

while  Cfj  >  0.0) 

C 

prod  -  prod  *  (Fn  /  Fj); 
Fn  -  fn  -  1.0; 

FJ  -  FJ  -  1.0; 

return'". prod)  ; 
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Module  Name:  b 

Function:  Calculates  the  Bernoulli  numbers 
and  stores  them  in  array  Cbarray) 

Inputs:  none 

Outputs:  none 

Calling  Modules:  bernpoly 

History:  B  May  B5  -  Capt .  K.N.  Cole 
translated  From  pascal 
^Original  by  Capt.  Mark  ftmell) 


void 
bC  ) 
t 

long  Float  sum; 
int  1 , J ; 

barrayCOl  -  1.0; 

For  Cj  -  1;  j  <-  (arraysize+l } ;  J-*--*-.'1  C 
sum  -  0.0; 

For  Ci  “  0;  1  <-  C  J-l?  ;  1  +  -0 

sum  -  sum  *  comC  j-*-l ,  i  :>  *  barrayCil; 
barrayCjl  -  C-1.0  *  sum.'/Cj  +  1); 

} 

Far  Cj  -  1;  j  <-  f.  arrays  ize+1  ? ;  J+-*-:1  C 

IF  C  CbarrayC  J3  <  0. 0000001.' »  8S  CbarrayCjl  >  -0. 0000001 )) 
barrayCjl  -  0.0; 

> 

J 
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/ 


> 


Module  Name:  bernpoly 

Function:  Evaluates  Bernoulli  polynomials 
Inputs:  n,  x 

Outputs:  bernpoly  (long  Float) 

Calling  Modules:  ArCoeF,  createAjr 

History:  8  May  85  -  Capt .  K.N.  Cole 
translated  From  pascal 
(Original  by  Capt.  Mark  Amell) 


** 
** 
** 
mm 


** 
mm 
mm 
mm 
mm 
mm 


boolean  bFlag  -  FALSE; 


/ 


long  Float 
bernpoly  (n,  x) 
int  n; 

long  Float  X; 

C 

int  i ; 

long  Float  sum,  power; 

sum  -  0.0; 
power  -  1.0; 


iF  <! bFlag)  C 
bFlag  -  TRUE; 

b(  )  ;  /*  initialize  barray  */ 

J 

For  ( i  •  n;  i  >-  0;  i — )  ( 

sum  -  sum  *  comCn.i)  *  barrayCiD  *  power; 
power  -  power  •  x; 

> 

return  (sum); 

) 
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**  File  Name:  beta.c 

mm 

mm  Contains  Modules:  beta,  betap,  ibeta,  loggam 

•* 

**  Current:  29  Sep  06 


#include  <math.h> 
tinclude  ’’defs.h” 


Module  Name:  loggam 

Function:  Computes  the  natural  log  of  the  Gamma 
function  of  n 

Inputs:  dx 

Outputs:  loggam  Clang  float) 

Calling  Modules:  beta,  prob 

History:  1  May  05  -  Capt .  K.N.  Cole 

translated  from  pascal  program 
COriginal  by  Capt.  Mark  Amell) 


long  float 
loggam  Cdx) 

long  float  dx; 

C 

long  float  rdo , dy , dterm , de , da , db , domeg , dlggm ; 
long  float  ds , dz , dw , dv , du , dt , dr , dq , dp ; 


rdo  -  0.0; 
dy  -  dx; 
dterm  -  1.0; 
de  -  1.0; 
domeg  -  1.0e25; 
da  -  0.9999909999; 
db  -  1.0000000001; 
dlggm  -  domeg; 
if  Cdx  >■  rdo)  C 
dlggm  -  rdo; 
if  CCdx  <-  da) 


Cdx  <-  da)  ! !  Cdx  >-  db))  C 
if  CCdx  <-  Cda+de) )  !!  Cdx  >-  (db+de)))  C 
while  CCdy-10.00)  <-  0.0)  C 
dterm  -  dterm  *  dy; 
dy  -  dy  +  de; 

> 

ds  -  de  /  Cdy  *  dy); 

dz  -  C long  float)  0 .005410256410256410; 

dw  -  Clang  float)  -0.001917526917526910; 

dv  -  C long  Float)  0.0000417500417510410; 

du  -  C long  float)  -0.0005952300952360952; 


dt  -  Clang  float)  0 . 0007936507936507937 ; 
dr  -  Clang  float)  -0.002777777777777778; 
dq  -  Clang  float)  0.08333333333333333; 
dp  -  C long  float)  0.9189385332046727; 

dlggm  -  CCdy  -  0.5)  *  logCdy))  +  dp  -  dy  -  lagCdterm) 
dlggm  -  dlggm  +  CCCCCCdz  *  ds  dw)  *  ds  +  dv)  * 

ds  +  du)  *  ds  +  dt)  *  ds  +  dr)  *  ds  +  dq)  /  dy; 


> 

returnCdlggm) ; 


/«*••••*•*•••*••«»****•*•*»••*•**•*•**»•**»*•»**••••*»»* 
mm  ** 

**  Module  Name:  beta  ** 

**  Function:  Calculates  the  beta  function  of  Cp,q)  ** 

*» 

**  Inputs:  p,  q 
**  Outputs:  beta  Clong  float) 

**  Modules  Called:  loggam 
**  Calling  Modules:  ibeta 


**  History: 

1  May  85  - 

Capt .  K.N.  Cole 

mm 

translated 

from  pascal 

mm 

** 

COriginal 

by  Capt.  Mark  Amell) 

mm 

mm 

mm 

mm 

mm 

mm 

mm 

mm 


/ 


long  float 
beta  Cp,  q) 
long  float  p,q; 
t 

long  float  temp; 


temp  -  expC  loggamCp)  +  loggamCq)  -  loggam Cp-*-q) )  ; 
return  Ctemp); 


Module  Name:  Ibeta 

Function:  Calculates  the  Incomplete  bBta  Function 


W 

SO 


Inputs:  p,  q,  x 
Outputs:  ibeta  Clong  float) 
nodules  Called:  beta 
Calling  nodules:  prob,  betap 

History:  1  nay  B5  -  Capt .  K.N.  Cole 
translated  from  pascal 
(Original  by  Capt.  nark  Amell) 


long  Float 
ibeta  Cp,  q,  x) 

long  float  p,  q,  x; 

C 

long  float  bint , pp , qq , dp , dq , xx , rxx, t , d , b , s ; 
int  ick, iq, ip, iqm, i ; 


| 


i 

-ft 


bint  ■  0.0; 

if  C  Cfabs(x)  <-  1.0e-17)  ! 
else  C 

PP  **  P; 

qq  -  q; 

ick  -  0; 

XX  »  X; 

iq  -  (int)  FlaorCq); 

dq  -  Clang  float)  iq; 

ip  -  Cint)  floorCp); 

dp  -  Clong  float)  ip; 

if  CCdq  —  q)  !!  Cdp  —  p))  C 


Cx  ““  1.0))  bint  -  x; 


> 

bint  “  Clong  float)  1.0; 
t  “  Clang  Float)  1.0; 

iq  -  Cint)  Cqq  *  Cl.O-xx)  *  Cpp+qq)); 
s  “  Clong  float)  iq; 
if  C iq  —  0)  C 
t  “  1.0  -  XX ; 
bint  *  t; 

else  C 

if  C iq  !-  1)  C 

rxx  “  xx  /  C1.0  -  xx); 
iqm  “  iq  -  1; 

for  Ci  “  1;  i  <“  iqm;  i C 
d  -  Clong  float)  i; 
t  -  t  *  rxx  •  Cqq-d)  /  Cpp+d); 
bint  -  bint  t; 

> 

t  -  t  *  xx  *  Cqq-a)  /  Cpp+s); 
bint  *  bint  ♦  t; 

) 

i  -  1; 

while  CCi  <  101) 

&&  C f absC t /bint)  >  0.0000000000000000000000001))  C 
d  -  Clong  Float)  i; 

t  -  t  *  Cpp  qq  d  -  1.0)  /  Cpp  +  s  +  d)  *  xx; 
bint  •  bint  t; 
i  -  i  ♦  1; 

} 

b  -  betaCp, q) ; 

bint  -  expCpp  *  logCxx))  *  expCCqq-1.0) 

*  logCl.O-xx))  /  Cb*pp)  *  bint; 
if  Cick  —  1)  C 

bint  “1.0-  bint; 

) 

return  Cbint); 


> 


Module  Name:  betap 

Function:  Calculates  the  inverse  beta  function 

Inputs:  alpha,  p,  q 
Outputs:  betap  (long  float? 
nodules  Called:  ibeta 
Calling  nodules:  newton 

History:  1  nay  85  -  Capt .  K.N.  Cole 
translated  from  pascal 
(Original  by  Capt.  nark  Amell? 


/ 


long  float 

betap  (alpha,  p,  q? 

long  float  alpha,  p,  q; 

C 

int  jj.jend.j.i; 

long  float  dp, dl , dif , dlx, dux, dmp, deer , dmpu, 
dm , dn , du , df d , dabf , df une , 
espl , esp2 , esp3 , esp4 ; 
boolean  flag; 

long  float  dargCSl,  dfunCSl; 


espl  -  l.Oe-100; 
esp2  “  1.0e-13; 
esp3  •  1 . Oe-11 ; 
esp4  "  1.0e-10; 
dp  -  alpha; 
dm  -  p; 
flag  -  TRUE; 
dn  -  q; 
du  ■  1.0; 

if  (((dp  *  (du  -  dp?  ?  <  0.0?!  ! ( (dm  <  0.0?!!(dn  <  0.0??? 
dmp  -  0.0; 

else  if  ((dp  •  (du-dp??  ■-  0.0? 

dmp  -  alpha; 
else  if  (dm  —  1.0? 

dmp  -  du  -  exp  ((du/dn?  *  log(du  -  dp??; 
else  if  (dn  —  1.0? 

dmp  -  exp( (du/dm?  *  log(dp??; 
else  C 

flag  -  FALSE; 
dl  -  0.0; 
dif  -  1. 0/3.0; 
dlx  -  -dp; 
dux  -  du-dp-, 

JJ  “  0; 
dmpu  -  0.0; 
jend  -  3; 

while  ((JJ  <  25?  SB  ('flag??  C 
if  (JJ  -■  25?  jend  -  3; 
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JJ  -  JJ  +  1; 

J  ’  1; 

while  CCj  <-  jend)  8S  Clflag))  C 
dmp  -  Cdu+dl)/B.O; 
i  -  1; 

if  CCCdu-dl)  <  espl)  !!  CCCdu-dl)  <  CespB*dp)) 

&8  Cdl  >  espB) 5 ) 

Flag  -  TRUE; 
else 

while  CCi  <  3)  aa  Clflag))  C 

dargCiD  ■  dl  Cdu-dl)  *  dif  *  i; 
dfunCiD  “  ibetaCdm ,  dn ,  dargC i 3  )  -  dp; 
if  CdfunCi3  — ■  0)  dmp  -  dargCiD; 
if  CdfunCi3  —  0) 
flag  -  TRUE; 

else  if  CCdfunCi3  <  0.0?  aa  Ci  -•  2))  C 
dl  -  dargCBD; 
dlx  -  dfunCB3 ; 

3 

else  if  CdfunCi3  >  0.0)  C 
du  -  dargC i □ ; 
dux  “  df unC i3  ; 
if  Ci  —  B)  C 
dl  “  dargCID; 
dlx  *  dfunCli; 

3 

else 

i  -  B; 

3 

•*■+1; 

3 

; 

3 

if  C ! flag)  C 
jend  -  B; 

dmp  -  Cdu+dl ) /B . 0 ; 
dfd  ■  dux-dlx; 

if  CCdfd  <  esp3 )  aa  Cdfd  <  Cesp4*dp))) 
flag  -  TRUE; 

3 

if  C ! flag)  C 

deer  ~  dux  *  Cdu-dl)  /  dfd; 
dmp  -  du  -  deer; 
if  CCCdmp-dl)  <  espl) 

! !  CCCdmp-dl)  <  espB)  aa  Cdl  >  espB))) 
flag  “  TRUE; 
if  C ! f lag)  C 

dfunC33  -  ibetaCdm,  dn,  dmp)  -  dp; 
dabf  “  fabsCdfunC33 ) ; 
dfune  *  dfunC33; 

if  CCCdabf  <  esp3)  88  Cdabf  <  Cesp4  *  dp))) 

: !  CCdmp  <  espl)  ! !  CCCdu-dmpu)  <  espB) 
aa  Cdu  >  0 . 9b9999999999 ) )  ii  CdfunC3D  —  0.0))) 
Flag  -  TRUE; 

3 


if  C ! Flag)  £ 

if  CdfunC3D  <  0.0)  C 

if  Cdecr  <  CO. 9  *  Cdu  -  dl)))  £ 
dl  -  dmp; 
dlx  -  dfUDB; 

D 

else  £ 

dmpu  -  dmp; 

dmp  -  5.0  *  Cdmp  -  dl)  +  dl; 
dfune  ■  ibetaCdm,  dn,  dmp)  -  dp; 
if  Cdfune  0.0) 
flag  -  TRUE; 
if  C  !  Flag)  £ 

if  Cdfune  <  0.0)  £ 
dl  -  dmp; 
dlx  -  dFune; 

D 

else  C 

du  -  dmp; 
dux  -  dfune; 
dl  -  dmpu; 
dlx  -  dfunC  3D ; 

D  D  D  D 
else  £ 

if  Cdecr  >-  C0.1  *  Cdu  -  dl)))  £ 
du  -  dmp; 
dux  •  dfune; 

D 

else  £ 

dmpu  -  dmp; 

dmp  -  du  -  5.0  *  deer; 
dfune  -  ibetaCdm,  dn,  dmp)  -  dp; 
if  Cdfune  0.0) 
flag  -  TRUE; 
if  C  !  flag)  £ 

if  Cdfune  <  0.0)  £ 
du  “  dmpu ; 
dux  “  dfun£3D; 
dl  -  dmp; 
dlx  “  dfune; 

D 


D  D  D  D  D  D 
returnCdmp) ; 


else  C 

du  “  dmp ; 
dux  "  dfune; 


D  } 
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'  .  * _»•  '■jiTUXAm  XK  >  XaTV*  >  «  wnj.T'j.  ’)>  -J.  Pj-1 


/ 


** 


File  Name:  coefs.c 

Contains  Nodules:  Queue,  ArCoeF,  createCjr, 

createAjr,  createUJjr, 

modR,  mods 

Current:  30  Sep  86 


^include  <math.h> 
tinclude  ’’defs.h” 

#include  ’’env.h” 

extern  long  Float  bernpolyO,  ibetaO; 
extern  long  Float  kaC]; 

long  Float  RCNUM+13,  SCNUM+13; 

long  Float  ArCNUM+lD,  QCNUM+1D,  TrCNUH+lD; 

long  Float  AjrCNUN+lj CNUN+11  ; 

long  Float  CjrCNUM+lDCNUn+in ; 

long  Float  UljrCNUN+llCNUN+12  ; 

int  arraysize  ■  NUN; 

long  Float  barrayCNUN+21 ; 

#iFdeF  EXACT 
boolean  exact  -  TRUE; 

#else 

boolean  exact  “  FALSE; 

#endiF 


** 

** 

** 

** 

** 

mm 

*/ 


*•  « 

**  Module  Name:  ArCoef  * 

**  Function:  Calculates  the  fir  coefficients  for  * 

**  module  Queue  • 

**  Inputs:  p,  delta  * 

**  Outputs:  none  * 

**  Global  Tables  Used:  kaCD  * 

**  Global  Tables  Changed:  ArC3  * 

**  Calling  Nodules:  Queue  * 

*m  m 

mm  History:  Dec  04  -  Capt  K  N  Cole  * 

**  5  Nov  05  -  fladified  far  neu  formula  * 

•«  * 


/ 


void 

ArCoef Cp, delta} 
long  float  p, delta; 

long  float  factor,  partial; 
int  i,  k ; 

ArCO:  -  1.0; 

factor  -  1.0; 

forCk  “1;  k  <“  arraysize;  k-*-*}  C 
factor  “  factor  *  -1.0  /  p; 
for  Cpartial  -  0.0,  i  ■  0;  i  <  p;  i-*-0 

partial  -  partial  +  bernpoly  '! k+1 ,  delta  *  katiD) 

/  expClogCkaC  iD  }  *  k 
ArCkD  -  Cfactor/': long  floatKk  •Ck+l))) 

*  CbernpolyCk+1 ,  delta!'  - 

} 


parti 


Module  Name:  Queue 

Function:  Calculates  the  Q  coefficients  for 
module  modR 
Input3:  p,  1,  delta 
Outputs: 

Global  Tables  Used:  ArCD 
Global  Tables  Changed:  QC3 
Calling  Modules:  modR 

History:  Dec  04  -  Original  by  Capt .  Mark  F.  Amell 
1  May  05  -  Headers  Added  -  K.  Cole 
0  May  05  -  Converted  to  C-language  CKNC? 
10  Aug  05  -  No  changes  for  Exact  model 


void 

Queue  Cp,  1,  delta:' 
long  float  p,  1,  delta; 

C 

int  i,  k; 
long  float  sum; 

ArCaef Cp, delta ? ; 

QUOD  -  1.0; 

for  Ci  ”1;  i  <“  arraysize;  i++j  C 
for  Csum  -0.0,  k  ■  1 ;  k  <“  i;  k++) 
sum  -  sum  -*■  k  *  ArCkJ  *  QCi-kU; 
QCiD  -  Cl.O/Clong  float?  i?  *  sum; 
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mmm 


£ 


mm 


*  Module  Name:  createAjr 

*  Function:  Build  the  Ajr  coefficients 

■  m  mm 


Inputs:  a,  v  ** 
Outputs:  none  ** 
Global  Tables  Changed:  AjrC]  ** 
Calling  Modules:  createCjr  ** 

*  • 


History:  Dec  84  -  Original  by  Capt .  Mark  F.  Amell  ** 

8  May  B5  -  Headers  Added  -  K.  Cole  ** 

19  Aaug  85  -  No  Changes  for  Exact  model  ** 

** 

mmmmmmmmmmmmmmmmmmmmmm^mmmmmm.mmmmmmmmmmmmmmmmmmmmmmm/ 


void 

createA jr C a , v :> 
long  float  a,v; 

C 

int  1 , m , rt ; 

long  float  sign,  temp; 

for  Cm  -0:  m  <■  arraysize;  1«  AjrCm]C03  *  1.0; 

for  '.'sign  -  1.0,  1-1;  1  <-  arraysize;  -‘-♦I)  C 
rt  -  1  1 : 

temp  -  bernpalyCrt . arraysize , a! ; 
for  Cm  -  0;  m  <-  arraysize;  m) 

A jr Cm} Cl!  -  C sign/ Cl  *  ‘1 +1.0))) 

*  Ctemp-bernuoly.rt , arraysize, a+v+m) 


mm 

**  Module  Name:  createCjr 

**  Function:  Creates  the  Cjr  coefficients  for  modR 

mm 

mm  Inputs:  a,  v 
mm  Outputs: 

**  Global  Tables  Used:  AjrCl 
**  Global  Tables  Changed:  CjrCD 

**  Calling  Modules:  modR 

** 

**  History:  Dec  04  -  Original  by  Capt .  Mark  F.  Amell 
**  B  May  05  -  Headers  Added  -  K.  Cole 

**  19  Aug  05  -  No  Changes  for  Exact  model 


mm 


mm 

mm 

mm 

*• 

mm 


mm 


/ 


void 

createC jrCa . v) 
long  float  a,v; 

C 

int  1 ,  m ,  k ; 
long  float  sum; 

createA  jr  >'a  ,  v) ; 

for  Km  ”  0;  m  <m  arraysize;  m+O 
C jrCmlCOl  -  1.0; 

for  '".l  "1;  1  <-  arraysize;  1+-0  i 
for  ':m  -  0;  m  <-  arraysize;  m++:<  C 
for  '.'sum  -  0.0,  k  -  1;  k  <**  1;  k+-0 

sum  -  sum  +  k  *  AjrCmlCkl  *  C jrCrn] : 1-kl ; 
CjrCrrOClD  -  sum  /  Clong  float)  1; 

1 

) 
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Module  Name:  modR 

Function.-  Creates  the  P  coefficients  for  the 
function  prob 
Inputs:  a,  v,  p,  t.  delta 
Outputs : 

Global  Tables  Used:  QC 1 ,  CjrCl 
Global  Tables  Changed:  PCI 
Calling  Modules:  mam 

History:  Dec  84  -  Original  by  Capt  .  Marl-  F.  Ameil 
1  May  85  -  Headers  Added  -  K.  Cole 
8  May  85  -  Converted  to  C- language  1 KNC 
19  Aug  85  -  No  Changes  for  Exact  model 


void 

modR  Ca,  v,  p.  t,  delta 
long  float  a,  v,  p,  t,  delta; 

C 

long  float  sum; 
l  nt  l  ,  k  ■, 

createCjr-a,  v)  ; 

Queue-:  p. t, delta) ; 

RCO]  -  1.0; 

For  Ci  •  1;  l  <■  arraysize;  i  +  C 
For  ( Sum  -  0.0.  k  “  1;  k  <*  i;  k  +  O 
Sum  -  sum  ♦  RCi-kl  •  CjrCi-kDCkl; 
RCil  -  C  Q  C  l  ]  -  sum-  ■  CjrCiKOD; 


nodule  Name:  createWjr 

Function:  Creates  the  Uljr  coefficients  for  modR 

Inputs:  none 
Outputs:  none 

Global  Tables  Used:  CjrCT,  ArCD 
Global  Tables  Changed:  WjrCl,  TrCD 
Calling  Modules:  mods 

History:  20  Oct  85  -  Original  by  Capt .  X.N.  Cole 


void 

createui  jr  (  '• 

C 

int  l , k , m ; 

iong  float  sum; 

TrCOD  -  1.0, 

for  *i-l;  i  <-  arraysize;  i«~0  C 
for  (sum  -  0.0,  1  “  1;  k  <-  1;  ) 

sum  -  sum  ♦  (long  float  >  k  •  C-ArCkD)  •  TrCi-kD; 

TrCil  -  *‘.  1.0  ■'(long  float)  l )  •  sum; 

) 

far  <i-0;  i  <-  arraysize;  i  +  0  WjrCiXOD  -  1.0; 

for  i-l;  l  <-  arraysize;  i 

for  *m  -  0;  m  <-  arraysize;  m+-0  C 
for  'Sum  -  0.0,  k  “  0;  k  <-  i;  k-*-+) 
sum  -  sum  ♦  *TrCkD  •  CjrCmHi-kD); 
wjrCmDCi]  -  sum; 

) 
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Module  Name:  modS 

Function:  Creates  the  S  coefficients  for  the 
function  prob 
Inputs:  a,  v,  p,  t,  x,  m 
Outputs:  none 

Global  Tables  Used:  RC 3 ,  WjrCD 
Global  Tables  Changed:  SCI 
Calling  Modules:  newton 

History:  SO  Oct  85  -  Original  by  Capt .  K.N.  Cole 


boolean  Uljrflag  -  FALSE; 
void 

mods  Ca,  v,  x,  m) 
long  float  a,  v,  x,  m; 

C 

long  float  sum; 
int  i,k; 

if  C!  Uljrflag]  C  /*  create  Uijr  coefficients  */ 

createUJjrC  D ; 

Uljrflag  -  TRUE; 

J 

SCO]  -1.0;  /*  create  S  coefficients  */ 

for  Ci  -  1;  i  <-  arraysize;  i++)  C 
for  (sum  -  0.0,  k  -  1;  k  <-  i;  k+-0 

sum  -  sum  +  CRCkl  *  ibetaCm+a,  v+k,  x)  *  UJjrCkDC  i-kD ) 
SCiU  -  sum; 

1 


**  File  Name:  prob.c 

»• 

•*  Contains  Modules:  prob,  newton 

>* 

**  Current:  30  Sep  SB 


br. 


♦include  <stdio.h> 

♦include  <math.h> 

♦include  ’’defs.h” 

extern  long  float  loggamO,  ibetaO,  betapO; 

extern  void  modSO; 

extern  long  float  RC3,  kaC3,  SCI; 

extern  boolean  exact; 

extern  int  arragsize; 


Module  Name:  prob 

Function:  Computes  the  distribution  Function  of  x 

Inputs:  delta,  a,  v,  p,  m,  x,  limit 
Outputs :  prob  (long  float) 

Global  Tables  Used:  RC) ,  SCI,  kaCl 
Calling  Modules:  newton 

History:  1  May  B5  -  Capt .  K.  N .  Cole 


/ 


long  float 

prob  (delta,  a,  v,  p,  t,  m,  x,  limit) 
long  float  delta,  a,  v,  p,  t,  m,  x; 
int  limit; 

C 

int  i,k; 

long  float  tsum,  t2,  t3,  Kl; 

if  (exact)  C  /*  exact  method  •/ 

tsum  ■  0.0; 

t3  -  (p  *  m)  *  delta;  /*  R  */ 

For  (k“0,  t2  “  0.0;  k<  (int)  p;  k++)  C 

tsum  -  tsum  ((t3  *  kaCk)  -  0.5)  *  log(kaCkl)); 
t2  -  t2  +  loggam(t3  *  kaCkl); 


Kl  -  exp(loggam(t3)  -  t2  ♦  tsum  +  (v  *  log((2.0  *  3 . 14159) /p) ) ) 

For  (i  ■  0,  t2  -  0.0;  i  <-  limit;  i++)  C 
tsum  -  exp(  loggam(m-*-a)  -  loggam(m«-a«-v+i  )  )  ; 
t2  -  t2  +  RCil  •  tsum  *  ibeta(m+a,  v+i,  x); 

) 

tsum  -  Kl  *  t2 ; 

) 

else  C  /*  Asymtotic  Method  */ 

mods (a , v, t , x, m) ; 
tsum  -  ibeta(m+a,  v,  x); 

For  (i  ■  1;  i  <“  limit;  i++) 

tsum  -  tsum  +  (SCiD  /  exp(i  *  log(m))); 


return( tsum) ; 


/ 


Module  Name:  neuton 

Function:  Calculates  the  percentage  point  using 
Neuton ’s  approximation  method 
Inputs:  delta,  a,  v,  t,  p,  m,  alpha,  R 
Outputs:  neuton  Clong  Float) 

Calling  Modules:  table,  computepct 

History:  1  May  85  -  Capt .  X.  N.  Cole 


long  float 

neutonCdelta,  a,  v,  t,  p,  m,  alpha,  RR) 
long  float  delta,  a,  v,  t,  p,  m,  alpha; 
int  RR; 

C 

long  float  ZCNEWT0NLIMIT+2D ,  paCNEUT0NLIMIT-*-2D ; 
long  float  sp,  x,  sign; 
int  k,  done,  limit; 

zCID  “  betapCalpha, RR-t , v) ; 
if  Cp  <-  3.0) 

zC2D  -  zCID  +  0.05; 
else 

if  CzCID  >  0.05)  zC2D  -  zCID  -  0.05; 
else  zC2D  -  zClD/2.0; 
x  -  zCID; 

limit  -  arraysize-1; 

sp  ■  probCdelta , a, v, p, t , m, x, limit) ; 

paCID  ■  sp; 

done  ■  FALSE; 

for  Ck  -  2;  Ck  <-  NEWTONLIMIT)  S&  !done;  k  «■■*■) 

C 

if  CzCkD  >  1.0)  zCkD  -  zCk-lD  ♦  CC1  -  zCk-lD)  /  2.0); 
x  -  zC kD ; 

sp  -  probCdelta, a , v, p , t , m, x, limit ) ; 
paCkD  -  sp; 

if  CfabsCsp-alpha)  <  0.0000001)  done  -  TRUE; 

else 

zCk+lD  -  zCkD  -  CzCkD-zCk-lD)  *  Csp-alpha)  /  Csp-paCk-lD ) ; 

if  CzCk+lD  <  0.0)  zCk+lD  -  zCkD  /  2.0; 
if  CCsp  >  1.0)  I  I  C sp  <  0.0))  £ 

printfC "NnNeuton .c:  Incorrect  Prob  Ualue  \F  \F  \n”,x,sp); 
done  -  TRUE; 

) 

) 

returnCzCk-13  ) ; 

) 
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/ 


File  Name:  table. c 
Module  Name:  main 

Function:  This  is  the  main  program  for  the 
percentage  point  table  generation 

History:  B  May  B5  -  Original  by 

Capt.  Kenneth  N.  Cole 
25  Oct  BB  -  Modified  for  SAE  system 


#include  <stdio.h> 

^include  ’’defs.h” 

^include  ’’table.h” 

extern  long  float  RC1,  SCI; 
extern  boolean  exact; 
extern  int  arraysize; 
extern  void  modRO; 

extern  long  float  neutonC),  probO ; 
long  float  kaCPMAX+11; 

long  float  alistCMAXALPHAl  -  C  ALPHA1 , 


#ifdef 

ALPHAS 

ALPHA2, 

aendif 

ttifdef 

ALPHAS 

ALPHAS, 

#endif 

#ifdef 

ALPHA4 

ALPHA4 

#endif 

/ 


main  O 
C 

long  float  p,  m,  v,  a,  t,  RR; 
long  float  temp,  prb,  sum,  delta; 
int  i,  k,  r; 

/*  print  header  to  identify  program  */ 
printf ( ”\n5AE  Table  Beneration  Program  Uersion  2.0\n”); 
if  <.  exact ')  C 

printf C ”\nExact  Method  is  used  in  calculating 

the  test  criteria\n”) ; 

printf'.’’  Maximum  number  of  terms  used  is  \d\n” ,  arraysize 

J 

else  C 

printf  <.  "'nAsymtotic  Method  is  used  in  calculating 

the  test  criteria'' n” ) ; 


printf  C  ” 


'id  Terms  used\n” , arraysize) ; 


S3 

‘N 

.V 


for  Cp  -  PINIT;  p  <-  PMAX;  p  -  p  +  PINC) 

/*  loop  on  number  of  samples  •/ 
C 

v  -  Cp  -  1.0)  /  Clong  float)  2.0; 
a  "  C1.0  -  v)/  Clong  float)  2.0; 
t  -  C p  +  1.0)  /  C6.0  •  p) ; 
for  Ci  •  0;  1  <  p;  i++)  kaCil  -  1.0/p; 

for  Ci  •  0,  sum  -  0;  i  <  p;  i-*--*-)  sum  ■  sum  -*•  1.0/kaCiD; 
delta  ■  Csum  -  1.0)  /  CCp  -  1.0)  *  B.0); 


modRCa, v, p, t , delta) ; 


/*  initialize  coefficients  */ 


printf C ”\n\n” ) ;  /*  print  table  header  */ 

printf C "Percentage  points  of  L  -  lambda  to  the  power  Cp/R)\n”); 
printfC”  p  -  \g  samples  \n”,  p); 

printf C”  R  -  *ig  x 

(number  of  failures  in  each  sample)\n\n” , p) ; 
printfC”  Level  of  Signif icance\n" ) ; 

printf  C  ’’Failures  %4 . 3f  ”  ,  ALPHA1 )  ; 

#ifdef  ALPHA2 

printfC”  Vi  .3f ”, ALPHA2) ; 

#endif 

#ifdef  ALPHA3 
printfC” 

#endif 

#ifdef  ALPHA4 
printfC ” 

#endif 

printf C ”'nper  sampleNn”); 


"i*i  .  3f  ”  ,  ALPHAS  )  ; 
*<4 . 3f”  ,  ALPHA4)  ; 


for  Cr  -  RINIT;  r  <-  RMAX ;  r  -  r  +  RINC)  C 

if  Cr  <  Cp+1))  r  -  Cint)  Cp  -*■  1);  /*  minimum  value  r  -  p+1  */ 

printfC  ”\n  \4d”,  r); 

m  -  CCp  *  Clong  float)  r)  -  delta)  /  p; 

for  Ck  ■  0;  k  <  HAXALPHA;  k+-0  C  /*  loop  through  alpha  values  */ 
prb  -  newtonCdelta , a, v, t , p, m, alistCk) , Cp»C long  float)  r)); 
printfC”  •iB.Bf”,  prb); 

printfC ”\n\n” ) ; 

> 
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File  Name:  compute. c 


Nodule  Names:  readfileO 

computelrt ( ) 
computepct C ) 

Function:  Computes  the  LRT  Criteria  and  percentage 
point  From  the  inFo  stored. 

Inputs: 

readFile(Fn) 
computepct (alpha ) 

Outputs : 

(long  Float)  computelrt C) 

(long  Float)  computepctO 
Calling  Nodules: 
main  (lrt.c) 

History:  9  Sep  85  -  Original  by 

Capt .  Kenneth  N.  Cole 


#include  <stdio.h> 
#include  <math.h> 
^include  <ctype.h> 
#include  ’’deFs.h” 
#include  ”lrt.h” 


/ 


extern  void  modRO; 

extern  long  Float  newtanO ,  probC); 

int  sampcount  -0;  /*  globals  */ 

int  Fail  *  0; 

int  sampFailCNAXSANPLESU ; 

long  Float  sampsumCNAXSANPLESl ,  sampsizeCNAXSANPLESD ; 
long  Float  kaCNAXSANPLES+l!3 ; 


**  Module  Name:  readfile  •* 

**  Function:  read  data  files  For  the  LRT  program  ** 

•*  *m 

mm  History:  0  May  B5  -  Original  by  »* 

**  Capt.  Kenneth  N.  Cole  ** 

**  55  Oct  06  -  Modified  for  SAE  system  ** 

**  *• 


int 

readfileCfn) 
char  *fn; 

/*  readfile  -  reads  the  data  file  named  CFn)  and 

returns  CTRUE)  if  all  the  information  is  provided 

*/ 

C 

FILE  *fp,  “fopenC); 
boolean  error,  getnj 
char  *c,  sCMAXANSUlER] ; 
int  n,  r; 

long  float  t,  tt,  maxt; 

if  Csampcount  MAXSAMPLES)  error  •  TRUE; 
else  C 

error  -  FALSE;  getn  -  TRUE; 
maxt  -  0.0; 
c  -  Fn; 

while  C isspaceC*c) )  C++; 
if  C*c  --  ’-’)  C 

printFC "Enter  Sample  Size:  ”); 
fgetsCs , MAX ANSWER ,  Fp) ; 
sscanfCs,  ”  •id",  &n); 

C++; 

getn  •  FALSE; 

if  Cfp  -  FopenCc,  ”r”))  C 

if  Cgetn)  FscanFCFp,  ”  'id  ”,  &n); 
r  -  0;  tt  -  0.0; 
while  C ! FeoFCFp))  C 
t  -  0.0; 

fscanf Cfp,  ”*ilf  ",  fit); 
if  Ct  !-  0.0)  C 

if  Ct  >  maxt)  maxt  “  t; 

tt  -  tt  +  t; 

r++; 

> 

else 

while  ClfeofCFp)  &8  CFgetcCfp)  !-  ’\n’)); 

) 

fcloseCFp) ; 

if  Cn  <  r)  error  -  TRUE; 


if  CCtt  -"0?  !  !  Cr  —  0))  error  -  TRUE; 

} 

else  C 

printFC ’’Readf  ile:  can’t  open  data  file  ->  **s\n” ,  c); 
error  -  TRUE; 

} 

if  C! error)  C 

tt  -  tt  +  CCn  -  r)  *  maxt); 
sampsumCsampcountl  -  tt; 
sampsizeCsampcountl  -  n; 
sampfai lCsampcountl  “  r; 
sampcount+-*- ; 

1 

returnC ! error) ; 

> 
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/ 


mm  mm 

mm  Module  Name:  computelrt  *• 

**  Function:  compute  the  LRT  value  For  the  data  read  ** 

•*  ** 

**  History:  8  May  85  -  Original  by  ** 

**  Capt .  Kenneth  N.  Cole  ** 

**  85  Oct  85  -  Modified  For  SAE  system  •* 

•  •  m* 

**»**•*•»»***•»•*»»»•»»»«***•***********•*****»***»*»»**  / 

long  float 
computelrt  C) 

/*  computelrt  -  Compute  the  test  criteria  From  the  data 
contained  in  the  global  variables  Csampcount,  sampsum, 
sampsize,  and  sampfail). 

*/ 

C 

long  Float  numer,  denom,  lrt,  tempi,  tempS,  sum; 
int  i,  Jj 

if  Csampcount  >■  8)  C 

sum  ■  0.0;  fail  ■  0;  /*  total  the  Failures  */ 

For  Ci  -  0;  i  <  3ampcount ;  i++)  { 
fail  «■  fail  sampfailCil; 
sum  -  sum  +  sampsumCil; 

numer  -  0.0;  /*  compute  the  numerator  •/ 

For  Ci  -  0;  i  <  sampcount;  i++)  C 

tempi  -  logCsampsumCil/Clong  Float)  sampfailC iD ) ; 

For  CtempS  -  0.0,  J  -  1;  J  <-  sampfailCil ;  J++) 
tempS  “  tempS  ■+•  tempi; 
numer  “  numer  tern p8; 

numer  -  numer  *  CClong  Float)  sampcount/ C long  Float)  Fail); 

denom  -  0.0;  /*  compute  the  denominator  */ 

For  Ci  -  0;  i  <  sampcount;  i++)  C 

denom  ■  denom  +  log C sum  /  Clong  Float)  Fail); 

1 


lrt  -  numer  -  denom; 
lrt  -  expC lrt ) ; 

returnClrt ) ; 

> 
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Nodule  Name:  computepct 

Function:  compute  the  percentage  point  needed 

History:  B  Nay  85  -  Original  by 

Capt.  Kenneth  N.  Cole 
25  Oct  06  -  Nodified  For  SAE  system 


void 

computepct (alpha , lrt, pet, prb, limit) 
long  Float  alpha, lrt; 
long  Float  *pct,  *prb; 
int  limit; 

/*  computepct  -  Compute  the  percentage  point  necessary  For 
evaluating  the  LPT  criteria  at  the  values  given 
by  the  global  variables  (sampeount,  sampsum,  sampsize 
sampFail  and  Fail). 

Also,  compute  the  probability  that  the  value  oF  the  criteria 
is  less  than  or  equal  to  the  LPT  value  given. 

Ualues  are  stored  in  the  locations  pointed  to  by 
pet  ->  percentage  point  For  alpha  value  given,  and 
prb  ->  probability  value. 


long  Float  m,  v,  a,  t,  delta,  p,  temp; 
int  i; 

p  -  (long  Float)  sampeount; 
v  -  (p  -  1.0)  /  (long  Float)  2.0; 
a  -  (1.0  -  v)/  (long  Float)  2.0; 
t  •  ( p  +  1.0)  /  (6.0  *  p); 

For  (l  -  0;  i  <  sampeount;  i++) 

kaCil  -  (long  Float)  sampFaiiCi3  /  (long  Float)  Fail; 

For  (i  -  0,  temp  -  0;  i  <  sampeount;  i  •♦■■*■)  temp  -  temp  -*•  1.0/kaCil; 
delta  -  (temp  -  1.0)  /  ((p  -  1.0)  *  6.0); 


modP(a, v, p, t , delta) ; 


/•  initialize  coeFFicients  */ 


m  -  ((Long  Float)  Fail  -  delta)  /  p; 

•prb  -  prob(delta, a , v , p, t , m, lrt , limit ) ; 
•pet  “  neuton(del ta , a , v , t , p , m , al pha , Fai 1 ) ; 
3 
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*  File  Name:  lrt.c 


(lodule  Name:  main 

Function:  Computes  the  LRT  Criteria  from  the  input 
data  provided. 

Modules  Called:  computelrt,  computepct ,  readfile 

History:  9  Sep  85  -  Original  by 

Capt.  Kenneth  N.  Cole 


/ 


#include  <stdio.h> 
♦♦include  <ctype.h> 
♦♦include  ’’defs.h" 
♦♦include  ”env.h” 
♦♦include  ”lrt.h” 


extern  long  float  computelrtO; 
extern  void  computepct C j ; 
extern  int  readfileO; 

mainCargc,  argv)i 
int  argc; 
char  •argvCD; 

C 

int  p,  sc; 

char  FnCMAXANSWERI] ,  sCMAXANSWER!] ,  *C; 
long  float  C,  prb,  alpha,  lrt; 


/*  print  header  to  identify  program  * 
printf C ’’XnLikelihood  Ratio  Test  Program  Uersion  2.0\n”); 

♦♦if def  EXACT 

printfC ”s nExact  Method  for  calculating  test  criteria''  n"  )  ; 
printf C”  Maximum  number  of  terms  used:  \d'' n" , NUM) ; 

#else 

printf C ”\nPsymtotic  Method  for  calculating  test  criteria ' n" ) ; 
printf  C”  ’id  Terms  used\n"  ,  NUM)  ; 

#endif 

printf  C”  \d  Samples  may  be  given  \n”  ,  MAXSAMPLES  > ; 

#ifdef  ALPHA 

printfC”  . 3f  Level  of  significance' n” , ALPHA) ; 

♦♦else 

printf f.”  Level  of  significance  will  be  requested  later  n" 

♦♦endif 

p  -  0;  /*  initialize  sample  counter  *' 

if  'large  >  1)  C  ,m  sample  filenames  given  in  call  •/ 

while  C — argc  >  0? 

if  I'.readf  ileC*+-*-argv j  )  p-*--*-; 

else  C  /•  no  arguments  . . .  prompt  for  inputs 

printf C "Enter  file  name  of  first  sample: 
getsCs) ; 
while  C*s)  C 


>; 


if  '!sscanf'!s,  "*.s ”  ,  Fn)) 
if  Creadf ileCFn) )  p++; 
pnntf  C  "Enter  file  name  of  next  sample: 
gets*!  s) ; 

> 

if  cp  >  i:>  c 

printf ( ”  \n5ummary : \n”) ; 
lrt  “  computelrtO; 
printf  <!  ’’Test  criteria  from  data  files  -  \g\n”,  lrt); 

Kifdef  ALPHA 
alpha  -  ALPHA; 

#else 

printf C "Enter  desired  level  of  significance:  ”); 
scanf  C  ”*ilf  ”  ,  Salpha) ; 

#endif 

computepctC alpha  ,  lrt ,  SC  ,  Sprb,  NUH) ; 

printf  >!  ’’XnProbabi  1  ity  that  LRT  value  is  less  than 

or  equal  to  "ig\n”  ,  lrt ) ; 

printf C”  when  the  sample  populations  have  the 

same  failure  rate  ”); 

printf1!  \4.3f  \n\n”,  prb); 

printf ’’Peference  paint  3  *i4.3f  Significance  ”  \g\n”,  alpha,  C); 
printf  •!  "Therefore :  \  n” )  ; 
if  <!  1  r  t  <  C )  C 

printf'”...  Samples  CANNOT  be  assumed  to  have  come 

from  populations'^”)  ; 
printf'!"  with  the  same  failure  distributions \n” )  ; 

) 

else  C 

printf’'"...  Samples  HAY  have  come  From  populations 

with  the  same'n”); 

printf'!”  failure  distributions  .  1  n”)  ; 

) 

) 

else 

pr  i  nt  f  ■'  "  1  nLPT  :  can’t  compute  LPT  from  less  than  TUJO  samples'  n'  n"  !'  ; 
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